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Foreword 


The National Aeronautics and Space Administration (NASA) , Wallops Flight Center 
participated in the flight testing operations of the NASA/ARMY Rotor Systems Research 
Aircraft (RSRA) project. Flight testing began at Wallops in July 1977 and scheduled 
to terminate upon acceptance of the aircraft in August 1979. 

This publication is based upon the set of computer programs designed to meet the 
24 hour data processing requirement for "quick look" analysis. The entire set of pro- 
grams have been designed under one software system called EASE (Early Analysis System 
Evaluation). This system can be adapted to similar helicopter projects requiring 
"quick look" information on helicopter performance. The basic structure of the EASE 
system is the design of the Raw Data File. Hence, modifications of project require- 
ments based upon the method of input or output to the Raw Data File can be easily in- 
corporated into the EASE system. 

The EASE system was successfully designed with the aid of Mr. Ken Lewis of 
Sikorsky Aircraft and Mr. Jon Stripling of NASA, Wallops Flight Center. Individual 
software contributions to the EASE system were performed by Mr. Terry D. Sommers, 
and Mr. David L. Davis, and Mr. Donald Woodward of the Computer Applications Section, 
NASA Wallops Flight Center; Mrs. Jeannette Wessells, Mr. Tom Taylor, Mr. Joseph 
Lapierre, Mr. Gus Dovi, and Mr. Leslie Brimer of Computer Science Corporation. 
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PROCESSING OF ON-BOARD RECORDED 
DATA FOR QUICK ANALYSIS OF AIRCRAFT PERFORMANCE 

Norman H. Michaud 
NASA Wallops Flight Center 

INTRODUCTION 

The Early Analysis System Evaluation (EASE) is a collection o£ independent software 
programs designed to provide an overview of flight performance within twenty- four hours. 
Because of the short time frame for processing flight data, this system does not provide 
detailed analysis of flight performance. However, sufficient information is available 
for such analysis. There are twelve major tasks that compose the EASE software system. 
These are: 

(1) SETUP reads the information necessary to process data for a particular flight 
operation. These data are then stored on a random file for access and updating by other 
tasks in the software system. 

(2) SCAN reads the digitized data tapes, performs minor editing, stores the data in 
the raw data file and computes the statistics in raw units. 

(3) RDFRD is a set of subroutines used by the remaining tasks in accessing data and 
statistics from the raw data file. 

(4) ABTASK computes the linear coefficients for the data based upon known laboratory 
measurements and pre-flight and post-flight calibrations. 

(5) STATPRINT provides a formatted listing by sensor of the computed statistics from 
either the SCAN or DPTASK programs. Data can be represented either in raw units or 
engineering units . 

(6) DPTASK derives certain information from the aircraft's instrumented data. These 
parameters, such as airspeed, are computed as a function of specific instrumented data. 
Such information is computed, then stored on the raw data file along with its statistics. 

(7) DATASK provides a different formatted listing of the statistical data than the 
STATPRINT task. Up to 18 different sensors are grouped on an output listing in column 
format for conparative analysis. 

(8) CYCLE COUNTS of certain data indicating aircraft stress points. By comparing a 
known stress point concern level value to the flight data, an output listing is generated 
by this task to indicate the number of data points exceeding 75 percent of this level in 
25 percent incremental intervals. 

(9) TIME HISTORY is a plotting routine of the data in engineering units versus time. 
Up to twelve different sensors can be plotted on one plot page. 



(10) HAIMINIC ANALYSIS conputes the harmonic coefficimts cm sensor data for given 
flight maneuvers. The first ten coefficients for both the sine and cosine terms are 
computed as well as the resultant coefficients and the asscmiated phase angles. 

(11) UPCGEN maintains a catalogue of sensor identifications that are used by various 
tasks for titling the data on output listings. Data is referenced initially by mnemonic 
names through the SETUP task. These mnemonics are used to identify the information 
contained in the Universal Parameter Catalogue (UPC) file. 

(12) TPEff'lP and TABLE PRINT perfom utility fisictions for the EASE software. TPDMP 
provides a selected dimp of the magnetic tape digitized by the 6130 computer system. 
TABLE PRINT provides a listing of the current contents of the Table File portion of the 
Raw Data File. 

During flight operations, data is being recorded cmly during experimental maneuvers. 
The system requires the data to be identified and premessed by eacdi maneuver of the 
flight. A d.c. signal is recorded during fli^t operations which determines the stream 
of data being recorded for a given flight maneuver. When this signal, called the run 
tone, is "on" the information contained on the data tapes is valid experimental data for 
a given flight maneuver. A run tone "off" conditicai indicates the termination of data 
gathering for that maneuver. Using this recorded run tone signal, each burst of data 
represents the information recorded for one flight maneuver. 

Processing of the flight data through the EASE system groips the data by the identi- 
fied flight maneuvers and calculates statistics for each flight maneuver. The data and 
statistics are stored on the raw data files (Riff) . These files are classified as random 
files so that specified portions of the flight data are quickly accessible. 

The data are initially recorded in analog form in two different modes: pulse coded 
modulation (PCM) , and frequency modulation (FM) . Different processing techniques are 
applied to the PCM and FM recorded data. PCM data is digitized at a fixed time sampling 
rate. The FM data is first processed through a peak stress analyzer. This step in the 
processing system is a hardware function that sajif)les a channel of FM data at a sample 
rate based upon the revolution of the helicopter's main rotor or tail rotor. A sampling 
rate of five sajiples per main rotor revolution will produce five data samples for one 
360 degree revolution of the main rotor. 

A channel of data input to the peak stress analyzer produces two channels of output 
data. One channel contains the peak or maximum values of the input signal while the 
other channel contains the valley or minimum values. The peak stress analyzer used for 
the project can process lip to twenty input chaimels of data at caie time producing a total 
of forty channels of data -- twenty peak channels and twenty valley channels. These 
output channels of the peak stress analyzer are then digitized. 
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Because of the hardware limitation of twenty data channels available on the peak 
stress analyzer and the fact that data processing requirements dictate different main 
and tail rotor sampling rates for different types of data, data digitization must be 
performed in multiple passes of the data. Selected channels of data are processed to- 
gether through the peak stress analyzer at a given sampling rate and digitized from 
beginning to end of the flight. This is defined as a pass of data. A second grouping of 
data channels is similarly processed, yielding a second pass of data. This continues 
until all possible FM data configurations have been processed through the peak stress 
analyzer. 

The digitization process of the flight data therefore produces two types of digital 
data on 9-track magnetic tape. Both types of data not only use different processing 
techniques, but also produce two different types of formats. These formats are defined 
in the SCAN routine. The EASE system accepts both the PCM and FM data for processing. 

All the information including the digitized data and confuted statistics is main- 
tained on the Raw Data File (RDF) for each flight. The RDF is a set of random j^ysical 
files that contain all the necessary flight information. There are four basic file 
configurations established for the EASE system: the Table File, the Statistics File, the 
Data Files, and the Universal Pararoter Catalogue (UPC) File. The UPC File is a common 
file used by every flight in the project while the other three are uniquely built for 
each flight. The Table File is initially built by the SETUP routine. It is a random 
file assigned to file code 07. The entire file is 42 logical records in length with 
each record fixed at 600 words . The SETUP routine documentation provides a detailed 
description of the Table File. 

The Statistics File contains the statistics in raw (machine count) units for each 
Sensor and computed for each flight maneuver. The file is a random file with each 
logical record having a fixed length of 400 words. This file is built by the SCAN 
routine onto file code 09 as it reads and stores the digitized data. 

The configuration of the Statistics File conforms to the pass and flight maneuver 
constraint definition of the system. These constraints are defined so that data for no 
more than 40 sensors is to be groiqjed together for flight processing during one pass. 

The flight being processed can have no more than 100 defiiMd flight maneuvers. Using 
these constraints, the positicming of data on the Statistical File can be defined. 

Each sensor is assigned by the SETUP routine to a particular pass and to one of 
the 40 sensor positions of the pass . Each pass is numbered frcm 1 to 20 and the assigned 
position of the sensors in each pass is nuirfjered from 1 to 40. The flight maneuvers are 
also assigned numerical values (called run ramtoers) from 1 to 100 by the SETUP routine. 
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The statistical data is randomly stored based upon this indexing scheme. The record 
address is a function of the pass number and run number. It is defined as: 
100*(IPASS-1)+IRUN, 

where IPASS is the pass number and IRUN is the run number. 

There are 10 data words assigned for the statistical elements for each sensor. Since 
there is a maximum of 40 sensors per pass, each data record contains the statistics 
computed for each flight maneuver for a given pass. The defined position of each sensor 
through the SETUP routine determines which set of 10 data words contains the statistics 
for a given sensor. A set of statistics is found by the formula: 

10*(IELEM-1)+IPOS, 

where lELEM is the assigned element number of the sensor through the SETUP routine and 
IPOS is an indexed value from 1 to 10 for each statistical element for that sensor. The 
statistics stored within the 10 words index by IPOS are: 

(1) the maximum value, 

(2) the corresponding vibratory conponent of peak stressed FM data at the time of 
maximum steady value or the corresponding steady value at the time of maximum vibratory, 

(3) the minimum value, 

(4) the corresponding vibratory or steady conponent at the time of minimum steady or 
vibratory value, respectively, 

(5) the average value, 

(6) the standard deviation, 

(7) the 95 percentile value for the vibratory FM data only, 

(8) the total number of points processed for this maneuver, 

(9) the total number of error points for the maneuver, and 

(10) a 6-character error code status word. Characters 1, 2, and 3 are not used; 
character 4 non-zero value signals errors due to loss of synchronization; character 5 
non-zero value signals over full scale data error; and character 6 non-zero value signals 
data parity error. A detailed description of the computation of these statistics and 
their meanings is given under the SCAN task. 

The data file is also configured as random with each pass of data being assigned to 
one physical file. The file code for each data file is assigned a number that is 10 plus 
the assigned pass number. For example, the data file for pass 5 is assigned to file code 
15. 

The physical size of a record within these files are 640-words in length. The 
records are blocked by flight maneuvers . That is , vfiether or not a complete record is 
filled with data, a new record is begun with a change in flight maneuver. The configura- 
tion of the 640-word data file record is of two types: one type of configuration for 

data being processed and recorded through the SCAN routine, and the other for data being 
processed and recorded through the DPTASK routine. In either type, data is grouped into 
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a frame of data with multiple frames within the 640 -word record. A frame of data is 
defined as an array of data sampled or derived at a given time for all sensors described 
for a given pass. That is, the sensor grouping described through the SETUP routine for 
a given pass determines the array configuration for a frame of data. In both types of 
data configuration, the first two words of the data record contain the run number assign- 
ed to the flight maneuver and the number of frames of data that are stored on this record. 

For the data processed through the SCAN routine, 11 data words are used for a 
frame of data. The first word of each frame is the recorded time in milliseconds for the 
data samples being recorded. Since the data being scanned has only a 9 -bit accuracy, four 
data sanples are packed into one 36-bit data word. Hence, ten words contain 40 sairples 
of data. A maximum of 58 frames of data can be recorded into one 640 -word record. 

The derived parameter data, however, is calculated in engineering units and requires 
a full data word for each sample. There are, therefore, 41 data words required for a 
frame of derived parameter -- the first word being the time tag and the next 40 being the 
data samples. Fifteen such data frames can be recorded on a 640-word record. 

The EASE software system package is flexible in its mode of operation. The distinct 
tasks that are required for a particular operation are executed as separate activities in 
the order that they are required. The normal flow of processing is first to define the 
data configuration for flight and sensor data constants through the SETUP routine; 
second to read the flight data and compute their statistics through the SCAN routine; 
third to compute the engineering unit conversion factors through the ABTASK routine; 
fourth to conpute the derived parameters through the DPTASK routine; and fifth to 
provide the requested output data through the STATPRINT, DATASK, CYCLECOUNT, and TIME 
HISTORY plot routines. However, either because of the lack of complete information or 
because of data errors, this normal flow of EASE activities may have to be altered. 

These circumstances must be investigated by the system user when preparing a run for 
processing. Figure 1 gives a visual description of the EASE digital processing scheme. 

Each task requires a specific card input setup that can be classified into three 
categories: first is the program deck with its associated job control cards; second is 
the job control cards for the file configuration; and third is the data cards required for 
flight parameters. 

The deck setup for the computer program and its associated job control language is 
the standard configuration for the computer system being used. The job control cards for 
the data file configuration is also a function of the requirements for the computer 
system's file description requirements. The software requires specific file codes for 
each data file and expects the files to be configured in a random mode. The description 
of these files to the computer's operating system is dictated by the particular computer 
file description requirement, i^pendix A summarizes the job control language required to 
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execute each program on the Honeywell 600 computer system. The remainder o£ this section 
describes the use of each task in the EASE system along with their data card descriptions. 

SETUP 

The purpose of the SETUP routine is to build the Table File. The Table File is 
used to describe the Data File format and flight parameters for a given flight. There are 
five tables that are defined within the Table File. These are the Header Table, the Pass 
Table, the Sensor Table, the Calrun Table, and the Event Table. These tables are built 
through card input. 

The format of the Table File is defined as a random file consisting of a total of 
42 physical records. Each record is pre-defined as a particular type of table. The 
structure of the Table File is described in figure 2. The SETUP routine initially builds 
these files through card input. 

This task is designed for interaction with an input card deck for properly trans- 
ferring the table information into the respective record areas of the Table File. Commu- 
nication with the program is primarily performed by using unique two-character codes in 
columns one and two of the input card deck. The necessary communication required by the 
program is divided into three major categories. The first category is called the "LI" 
level of input. This level of input informs the software to begin processing in either 
an initialize or update mode and to terminate processing. These cards must be the first 
and last cards of the input data deck setup. The second category, called the "L2" level 
of input, informs the software that the following data cards in the deck setup contain 
the data values for a particular table. All data cards following an "L2" level card up 
to the next "L2" level card or the final "LI" level card contain the data values for the 
table specified by the leading "L2" card. The detailed entries for each table form the 
third category of data. 

The order of input for the Header Table and the Event Table is unimportant. However, 
the information for the Pass Tables is located on an "L2" level card that precedes the 
Sensor Table data for that named pass. Also, the Calrun Table data indicates which events 
contain pre- and post-calibration data for a named sensor. The program requires that the 
Sensor Table be present in order to cross-reference the two tables. 

The "LI" level cards used in the SETUP routine are described in figure 3. The option 
name specified on the first card informs the program that the execution of this task is 
either to initialize the Table File or update the current Table File with the input data 
cards. The update option assumes that only those input cards present require value 
changes in the current data file. There are a few remarks that must be stated for proper 
execution of this program in the update mode: 
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(1) If the value of only one data field is to be modified, all information that is 
specified for that card image must be present. The SETUP routine reads a card image and 
will modify each data value that is expected on that data card. 

(2) Because of the interrelationship of the Pass Tables, Sensor Tables, and Calrun 
Tables, any modification to a given Pass Table or to any one sensor referenced to a given 
pass requires that the Pass Table, all sensors referenced to that pass and the Calrun 
Tables must be included in the deck setup. 

(3) A modification to the Calrun Tables do not require the inclusion of the Pass or 
Sensor Table data. However, the entire set of Calrun Table data cards must be included 
for one change in the Calrun Table setup. 

One additional remark that pertains to the execution of this task in either the 
initialize or update mode is that the Calrun Tables must be placed after the Pass and 
Sensor Table data cards. 

The Header Table consists of four data cards preceded by an "L2" level card. Input 
for the initialize mode will store blank or zero values for data fields left blank or for 
data fields defined for a missing data card. The update mode requires all the data fields 
on a supplied input card to contain the proper data values. Data fields that are blank 
will cause blank or zero data to be stored in that Header Table data element. Only those 
card images requiring data modifications need to be supplied. Figure 4 contains a 
description of the data elements in the Header Table and figure S gives the data card 
image format for this table. 

The Pass Table is contained in records 2 through 21 of the Table File. Each record 
contains information pertaining to one defined data pass. The EASE system is thus limited 
to a maximum of 20 data passes. Each data pass is assigned, through card input, a pass 
number from 1 to 20. This pass number is used to assign the record number for storing the 
Pass Table data in the Table File. Pass Table data for pass "i" is assigned to record 
number "i + 1" of the Table File. 

A pass has been defined as the processing of flight data for a group of sensors from 
beginning to end of the flight at a common sampling rate. Since the peak stress converter 
is capable of processing no more than 40 output channels of data at one time, the EASE 
system is designed to process no more than 40 channels of data on one pass also. This is 
true in the EASE system even in handling the PCM data which is digitized with more than 
40 channels of data at a time. 

There is a natural association of the Pass Table with the Sensor Table because of 
the definition of a pass . The order of card input for the Pass Table information on an 
assigned pass is associated with a specific set of sensors. The card image description 
for the Pass Table is, therefore, described along with the Sensor Table in figure 8. 

The data elements within each Pass Table record is described in figure 6. The data 
contents of the Pass Tables will change to reflect information derived from the processing 
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of other tasks. In particular, the pass status word, ISTATC, will be updated by the 
SCAN routine to indicate the data is now available and it will be updated by the ABTASK 
routine to indicate the engineering unit conversion factors are now available. The array 
lADDR will be updated to reflect the data file addresses for each maneuver. 

The Sensor Table contains information necessary to fully describe each data parameter 
processed in each pass. There is a maximum of 40 sensors described in each pass of data. 
The set of parameters processed together for a given pass are being sampled at a common 
sampling rate. This is the basic requirement for grouping parameters for a defined pass. 
The Sensor Table information is stored in records 22 through 41 of the Table File. The 
Sensor Table data for pass "i" is found in record number "i + 21" of the Table File. By 
using the address of the Table File records, the EASE system can therefore determine the 
pass associated with the Sensor Table data. Using a similar design feature, the contents 
of each Sensor Table record defines the ordering of the parameters within a pass . 

Each parameter requires 13 data words for its description. With a maximum of 40 
parameters per pass, a Sensor Table data record contains a maximum of 520 data words. 

The 13 data words for a given sensor "j" are then found in data word location "13j - 12" 
through "13j." The information contained in the 13 data words for each sensor are de- 
scribed in figure 7. Figure 8 outlines the data card images for the pass and sensor data 
for a given flight pass. 

Data processed through the peak stress converter require specific ordering for 
Sensor Table entries. One data signal entering the peak stress converter produces two 
components of the data - a peak and a valley. In the case of data defined with pre- 
processing codes of vibratory and steady, the peak and valley components are mathemat- 
ically combined to produce these two components. In the case of amplitude and phase 
components, two data signals are entered into the peak stress converter - one is the 
amplitude signal and the other the phase signal . Four data components are then produced - 
two for the amplitude and two for the phase. 

The order of card input to the Sensor Table is important for data processed in this 
manner. For the vibratory and steady component sensor definition, the card image 
describing the vibratory component must precede the card image defining the steady 
conponent; for amplitude - phase data, the amplitude component must precede the phase 
component. The assignment of storage location for these components in the Statistics 
and Raw Data Files must also be in a similar ordering scheme. 

The Calrun Table is used to associate the correct pre- and post -calibration 
maneuver number to every sensor on the flight. There are three different types of 
calibrations performed both before the flight begins and soon after the flight ends. 

Data is recorded with full loads on the instrumentation for the R-Cal; with no loads for 
the Z-Cals; and full stick and pedal positions for the transducer or X-Cals. Each type 
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of calibration is performed in a definite sequence and the data for each calibration step 
is recorded as a burst similar to a flight maneuver . 

Not all calibration steps are applicable to every sensor. A series of calibrations 
are performed so that the necessary calibrations are available for each active sensor. 

The Calrun Tables are used to indicate which data maneuver numbers contain the correct 
information for each sensor. 

There are two types of input cards required for the Calrun Tables. One specifies 
the six assigned maneuver numbers for pre- and post-calibrations for a group of sensors. 
The other specifies the sensors associated with that calibration scheme . The order of 
input is important. The card containing the calibration run numbers must precede those 
containing the sensor mnemonics associated with that set of run numbers . The cards 
containing the run numbers are identified by the code "CT" punched in columns 1 and 2. 

The cards containing the sensor mnemonics are identified by the code "CS" in columns 1 
and 2. 

The first set of calibration run numbers are associated with a majority of the 
sensors activated for the flight. Rather than list such a long list of sensors mnemonics, 
the first grouping of data cards for the Calrun Table contains the characters "AC” punched 
in columns 4 and 5 of the "CS" card that are associated with the "CT" card read. At most, 
eight sensor mnemonics can be specified on one "CS" card. Since more than eight sensors 
can be associated with a defined calibration run scheme, more than one "CS" card is 
acceptable for input. The procedure of associating a sensor to the last table of cali- 
bration run numbers is by either encountering a blank field for a sensor mnemonic on a 
"CS" card or encountering a new "CT" card. A maximum of 20 calibration run table entries 
can be specified. 

The entry numbers associated with a calibration run table are calculated by the 
software. Each set of tables are nimibered consecutively as they are read by the software. 
These entry numbers are entered into the Sensor Tables as the value of CALADR for the 
proper sensor. 

This entry number also is used in the formatting of the Calrun Table record of the 
Table File. All Calrun Table entries are recorded in record number 42 of the Table File. 
Each entry contains six values that are the calibration run numbers . With a maximum of 
20 entries, the Calrun Table can have at most 120 words of data. Data words "6i-5" 
through "6i" contain the calibration run numbers for entry "i". Figure 9 is a description 
of the Calrun Table and figure 10 is a description of the card images for this table. 

The Event Table is a list of the flight maneuver information. It contains 
a 24 character field used to define a title for the experimental maneuver, the type of 
maneuver being performed and the time the event began. This table is an inportant aspect 
of the system since the data is being evaluated for each maneuver. 
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The card input requirements for this table are relatively straightforward compared 
to the Pass, Sensor, and Calrun Tables. The information required for each event is 
placed on a single input card. The order of input is dictated by the order of the 
maneuvers as given on the Flight Log. A run number is assigned to each maneuver. 

The information for the Event Table is stored in record 43 of the Table File. There 
is a maximm of 100 maneuvers that can be defined for a given flight. Each maneuver 
requires six data words for its second entry making the Event Table size a maximum of 
600 data words in length. The entry for run number "i" is placed in data words "6i-5" 
through "6i". 

The data field contents for each maneuver in the Event Table is described in figure 
11. The card image description for each maneuver is described in figure 12. The order 
of input for the Event Table relative to the input of the other four tables is irrelevant. 
Only the order of the data cards within the Event Table is important . 

The SETUP routine provides the initial description of flight parameters. Items that 
are included in this description are the aircraft configuration information, the config- 
uration of the digitizing process by passes, the sensor configuration of the data being 
processed, the pre- and post-calibration configuration for each sensor, and the descrip- 
tion of the events that were performed on the flight. 

This routine can be operated in two modes. The first is the initialize mode where 
all data entries for each table are initialized to the data provided on input cards. The 
second mode is the update mode where information supplied on data cards alter the pre- 
viously stored Table File data. 

The SETUP routine provides a limited editing capability on the set of input data 
cards. IVhen errors are found in the setup of the input data card deck that can be 
checked by SETUP, appropriate error messages are printed and none of the information 
provided by the execution of this job is recorded. This is to insure that additional 
errors are not included into the Table File especially during an update mode. Items that 
are checked include the correct order of data cards, data fields using a specific numeric 
or character code entries contain only the allowable entries, and the maximum allowable 
sizes of each table is not exceeded. Items that cannot be edited include such things as 
incorrect spelling of character entries, incorrect entries of allowable codes, and in- 
correct data value entries that fall within the allowable range of the data. Care 
should therefore be taken to insure all entries to the Table File are correct. A detailed 
check using the output listing provided by the SETUP routine should be made to insure 
correctness of the information recorded in the Table File. 
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SCAN 


This program is used to record the digitized data onto the Raw Data File, and compute 
and store the defined statistics. This program is the data processing task for the 
EASE system. The SCAN program accepts digitized data produced in the Televent II^ format 
and sequentially reads each time-tagged frame of data. 

Each frame of data is a set of digitized data samples in the form of an array. The 
association of a data sample within a frame of data to a given sensor is defined through 
the SETUP program for each flight. The variable, "IPARIN" of the Sensor Table, indexes 
the appropriate data word within the data frame . Each referenced data sample is also 
stored into the Raw Data File in a position determined by the variable "IPARDF" of the 
Sensor Table. The flight data to be processed is divided into passes, digitized by 
different pre-processing schemes, originally recorded as different types of data, and 
partitioned according to a prescribed set of flight maneuvers. 

A pass of data is a complete set of data frames for a flight configured according to 
the Sensor Table for that pass. Each pass is numbered through input to the SETUP program. 
The location of data for each sensor is then fixed during the processing of a pass by the 
set of "IPARIN" indices noted in the Sensor Table for that pass. 

The type of data being processed must also be known since the data is digitized 
differently for each type of data. There are only two types of data that are recorded- 
FM and PCM data. Both use the Televent II recording scheme but the length of their data 
frames and the bit configuration of each data sample are different. A PCM data frame is 
110 data words in length and each data sample contains nine bits of data plus one odd- 
parity bit. An FM data frame is 42 data words in length and each data sample contains 
nine bits of data plus three bits of "noise" data. Hence, the decoding of information 
requires that SCAN recognizes these differences. This is given through the variable 
"SRDIN" of the Pass Table input through SETUP. 

The pre-processing code specified through the variable "PPC" of the Sensor Table 
informs the SCAN program on how to handle the input data. The pre-processing for FM 
data may require that the information pass through the peak stress converter before 
digitizing. This would provide a pair of data points for each sensor. These points are 
the maximum and minimum data values within the specified sampling interval. These points 
are then combined in SCAN to produce the vibratory and steady components of the sensor. 
Data having pre-processing codes of amplitude and phase are also processed through the 
peak stress converter but are processed in the SCAN program differently than vibratory 
and steady data. 

^ See Appendix B for a description of the Televent II format. 
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Finally, the partitioning of the data by a prescribed flight maneuver scheme must 
also be known by the SCAN program. This is normally provided by a run tone signal that is 
digitized and recorded within each frame of data. IVhen the run tone is "on," that is, 
a high data value recorded, the data contained within that frame of data is to be proc- 
essed. IVhen the run tone value drops to a minimum value, this signals the end of data 
sanpling for a flight maneuver. The run tone switching to a high value in a successive 
frame of data signals the beginning of a set of data frames for the next maneuver. Such 
a scheme for partitioning the data into separate maneuvers is not assumed to be foolproof 
so that a means of identifying the partitioning scheme is provided as card input to the 
SCAN program. The partitioning of sets of data frames into bursts permits the program to 
calculate statistics for each maneuver. 

The SCAN program calculates the required statistics for each sensor as the data is 
being read. There are ten statistical values recorded for each flight maneuver on each 
sensor. These are the maximum and minimum points, average, standard deviation, total 
number of samples in the event , number of error points and coded word denoting the type 
of data error. In addition to these seven values, data processed through the peak stress 
components for a sensor require the corresponding component value at the time of maximum 
and minimum recorded value for the vibratory and steady data. That is, the data value of 
the vibratory component at the time of maximum and minimum steady is recorded in the 
statistics record. The steady values are similarly recorded at the time of maximum and 
minimum vibratory values. The 95th percentile point is the tenth statistic. It is only 
computed for vibratory component data. 

It is then evident that the processing requirements are rather complex and require 
additional information to relate the SCAN program as to how the data is presented in the ’ 
input file and how it is to be processed and transferred to the raw data file. Some of 
the information is available from the Table File stored by the SETUP program. However, 
some of the information that is needed must be supplied directly to the SCAN program. 

This is done through card input. 

There are three types of data cards that are used by the SCAN program. Each is 
distinguished by a two character coded value in the first two columns. The card coded 
by "SD" is the pass configuration card. The card coded by "BT" is the burst processing 
card and the one coded by "LI" is a processing termination card. Figures 13, 14, and 
15 outline the information required by each type of input card. 

The order of card input follows the logical sequence of processing the data. The 
first data card must be an "SD" card in order to inform the SCAN program as to which 
pass is to be processed and where the data is to be found on the input file. Following 
the "SD" card are the "BT" cards that instruct the program to process those data bursts 
that cannot be processed by the run tone signal. If more than one pass is to be proc- 
essed, another "SD" card followed by its required "BT" cards are then read. This scheme 
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continues until all passes to be processed are defined. The last card of the input data 
deck is the "LI" card. 

There are four types of conditions for processing a burst of data. One is by the run 
tone signal, another by time, a third by skipping an erroneous burst of data and lastly 
by defining a burst when one was not present on the input file. These four types of con- 
ditions are defined by the variable "ICOND" on the "BT" card. "BT" cards need not be 
present to describe the processing mode of each burst of data. Only those conditions 
where processing of a data burst other than run tone need to be included in the input deck. 
If a "BT" card is not present for a numbered burst, it will automatically be processed 
using the run tone. Figure 14 contains the coded values of "ICOND" for the different 
burst selection conditions. 

In order to process data through the SCAN program, supporting documentation must be 
available with the input file. This includes a burst interval listing and a flight log. 

The digitized data is pre-processed using the run tone signal onto a magnetic tape. At 
the time of digitization, a burst interval listing is generated noting the time interval 
for detected bursts by run tone. The total number of these intervals must coincide with 
the total number of events outlined on the flight log. When there is a discrepency be- 
tween these two pieces of information, both forms must be studied to determine where the 
discrepency is and how to correct it. This is done by inserting "BT" cards into the input 
data deck for the SCAN program specifying the processing condition for that burst of data. 
For example, it may be that burst number ten is a set of data frames with the run tone 
having been keyed on when an actual maneuver did not take place. This burst would then 
have to be skipped in the processing of the data tape by using a "BT" card for burst 
number ten with "ICOND" equal to one. Another possibility is that the run tone was not 
turned off between too maneuvers so that too maneuvers have been detected as one burst of 
data. In this case, the "BT" cards would contain a value of two for "ICOND" along with 
the maneuver time intervals. The SCAN program would then process these bursts by time 
intervals. Finally, there may have been a defined maneuver according to the flight log 
but the run tone signal was not on. In this case no data is present on the input tape 
and a "BT" card would be needed with "ICOND" equal to three. 

The SCAN program is the main processing routine for the EASE system. It requires 
execution of the SETUP program in order to define the configuration of the data on the 
pre-processed magnetic tape. A study of the flight log and a listing of the burst inter- 
vals contained on the input file is required to properly align each burst of data to the 
prescribed flight maneuvers. Samples of the burst interval listing and flight log are 
found in figures 16 and 17. 
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RDFRD 


This is the subprogram for accessing data and statistics from the Raw Data File (RDF) 
It is designed to use as a sub-module of each program requiring access to information on 
the RDF. This subprogram consists of three subroutines - RDFRD, RDFSUB, and UNPACK. The 
subroutine, RDFRD, accesses data sanples or statistics requested through the input argu- 
ment list and returns the information to the calling program either in raw units or in 
engineering units. If the requested data is not available, RDFRD returns the appropriate 
error codes which can be interpreted by the calling program. The subroutine RDFSUB is 
used when the calling program furnishes only the mnemonic name, pre-processing code and 
sample rate for the requested data. RDFSUB then searches the Table File to determine the 
pass and element number as well as the engineering unit coefficients so that RDFRD can 
locate and convert the requested information. UNPACK is used by the subroutine RDFRD 
when data samples are requested by the calling program. Each data sanple within the 
RDF has been packed so that each computer word contains four successive data sample values 
UNPACK extracts the appropriate "byte" for the requested data samples. 

Figure 18 is a list of the arguments for subroutines RDFRD and RDFSUB. Since the 
subprogram RDFRD is not an independent program, there is no card input directly required 
by this subprogram. All information is furnished through the appropriate program that 
accesses the RDF and thus requires the use of the RDFRD subprogram. 

ABTASK 

This program confutes the engineering unit coefficients for linear conversion of the 
data contained on the RDF. The operation of this program depends upon information on the 
Table File. No card input is required at the time of execution of the ABTASK program. 

The engineering unit coefficients are computed for every sensor defined in the Table File 
whose data has been entered into the RDF by the SCAN program. Hence, successful execution 
of the SETUP program and SCAN program is required before this program can perform 
meaningfully. 

ABTASK first checks the present value of "ISTATC" of each Pass Table record (see 
figure 6) . The engineering unit coefficients will only be calculated if "ISTATC" equals 
one. This indicates that the data has been scanned and entered into the RDF but the 
engineering imit coefficients have not yet been calculated. Once a pass has been found 
with such a condition, each entry of the Sensor Table for that pass is polled for addi- 
tional information. 

Within the Sensor Table, the data field contents of ’TPC," "IPARDF," "CALiYP," 
"EUCVl," "EUCV2," and "CALADR" are needed by ABTASK. (See figure 7 for the definition 
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of these variables.) The engineering unit coefficients, calculated by ABTASK, are stored 
in the Sensor Table under the variables "A" and "B". Some of the information extracted 
from the Sensor Table play a minor role in the logical flow of the program. The value of 
"PPG" satisfies the requirement for computing the engineering tmit terms for vibratory 
data. For the vibratory conponent data, the "A" term is as computed for the associated 
steady conponent vdiile its "B" term is zero. The variable "IPARDP' is used to locate the 
appropriate average and standard deviation values for each sensor from the Statistics File, 
and the variable "CALADR" references the appropriate Calibration Run Table entries for 
that sensor. The variable "CALTYP" determines the type of calibration procedure required 
for each sensor. Because of the varied types of instrumentation available, several types 
of calibration procedures have been established. These procedures then require different 
types of linear conversion equations to compute the engineering unit terms. These have 
been categorized into five types for ABTASK: ACX, ACZ, PC, ABl, and AB2. 

In addition to defining the type of calibration for each sensor, the total range 
and offset values in engineering units are supplied through the variables "EUCVl" and 
"EUCV2" respectively. The actual raw unit measurements for these values must be supplied 
also. These are furnished through the pre- and post- calibration steps performed for 
each flight. This information is contained on the RDF and is determined by the Calrun 
Table referenced by each sensor. 

The equations for computing the A and B terms for each type of calibration is as 
follows: For the ACZ type of calibration, 

^ ^ EUCVl 
R - Z ’ 

where 

R = (PRE*Rg + POST*Rp/(PRE+POST) : 

Rg = average in raw units (RU) of the pre- R cal run; 

R^ = average RU of post- R cal run; 

PRE = 0 if there is no pre- R cal, = 1 if there is; 

POST = 0 if there is no post- R cal, = 1 if there is; 

and 

Z = (PRE*Ig + POST*Z^)/CPRE+POST) ; 

Tg = average RU of pre- zero cal run; 

= average RU of post- zero cal run; 

and 

B = EUCV2 - (A*Z) . 

For the ACX type of calibration, the engineering unit terms are 
A = 

R - Z 
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and 


B = EUCV2-(A*X) 

where 

X = (PRE*X + POST*X.)/(PRE+POST) ; 

Xg = the average RU of the pre- X ducer cal run; 

X^ = the average RU of the post- X ducer cal run. 

For the physical calibrations Ctype PC) 

A = EUCV2-EUCV1 
H - L 

where 

H = (PRE*Hg + POST*H^)/(PRE+POST): 

= average in RU of the pre- physical high cal run; 

= average in RU of the post- physical high cal run; 

and 

L = CPRE*Lg + POST*L^)/(PRE+POST) : 

Eg = average in RU of the pre- physical low cal run; 

17^ = average in RU of the post- physical low cal run; 
and 

B = EUCV1-(A*L). 

For the ABl type of calibration, no data is used for calculations 
and 

A = EUCVl, 

B = EUCV2. 

And for the AB2 type of calibration, no data is required for calculation, 

, _ EUCVl 

(EUCV2/100.0)*ACS 

vhere 

ACS = 512.0 

and 

B = 0.0 

The average raw unit values used in the calculations for the ACZ, ACX and PC types 
of calibrations are referenced by the run number values specified in the Calrun Tables 
(see figure 9). If any entry to the Calrun Table is zero, there is no average value for 
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that type of calibration. This method is used when either the pre- or post -calibration 
values are required for a given sensor. In those cases where the Cal run entry is zero or 
the average value is null for both the pre- and post -calibrations the A and B terms can- 
not be calculated. The program then assigns A = 1.0 and B = 0.0. The calculated A and 
B terms are then entered into the appropriate Sensor Table position. When all sensors 
for a given pass have their engineering unit coefficients calculated, the "ISTATC" 
variable in the Pass Table is redefined as "2." 

Three types of printout formats are produced by ABTASK. These reports summarize, 
on a pass basis, the information used to calculate the engineering unit coefficients as 
well as the coefficient values. Figure 19 lists the event numbers used for each Calrun 
Table entry used for the sensors in a pass. These run number entries correspond to the 
assigned event numbers associated with the Event Table (see figure 11) . 

The average value in raw units, its percent of full scale, the percent full scale 
shift between the pre- and post-calibration values and the standard deviation values is 
presented in figure 20. Percent full scale is based on the mid-range of the data being 
0 percent. A value of 511 for the average value in raw units represents the null value. 
An outline of the final A and B terms calculated for each sensor along with the type of 
calibration, the calibration run table entry number and the given EUCVl and EUCV2 terms 
is contained in figure 21. 


STATPRINT 

The STATPRINT program furnishes a tabulation of the statistical values for each 
flight maneuver for a given sensor. The statistical values are presented either in raw 
units or engineering units. Figure 22 is a sample of the report produced by the 
STATPRINT program. The purpose of this program is to furnish a detailed report on the 
statistical values for a given sensor. It is not a practical summary list for normal 
flight analysis due to the bulk of data that would be produced on all sensors of a given 
flight. Its primary use is in furnishing this data when detailed analysis is required. 

The mode of operation for the STATPRIOT program is controlled by card input. There 
is only one input card format required for any mode of operation. Figure 23 outlines the 
input card format for this program. There are three basic modes of program execution: 
a request for statistics of a specified sensor; a request for statistics for all sensors 
of a specified pass; and a request for statistics on all sensors within a given flight. 

The reports will be in either raw or engineering units depending upon the value of "ICONV” 
specified on the input card. There can be any number of input cards depending on what 
statistical reports are requested. 

In order to furnish statistical data for a given sensor, information must be 
furnished for the mnemonic name, pre-processing code, and sample rate of the data 
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("NAME," "PPG," "SR"). This must be identical to the same infoiTnation present in the 
Table File as input through the SETUP program. The STATPRINT program utilizes the 
subprogram RDFRD to locate the position of the statistics on the RDF by searching the 
Table File for sensors having the information from the cards read by STATPRINT. Failure 
to find the entry in the Table File results in an error message rather than the required 
statistics tabulation. When all sensors for one pass is required as output, the correct 
pass number in variable "IPASS" is all that is required for input. To process the 
statistical tabulations for all sensors of a given flight, no pass or sensor information 
is given on the input card. 

In addition to specifying which of the three modes of output is requested, the 
request must include the appropriate code for "ICONV" for either raw or engineering 
values. An error will be noted if engineering unit values are requested and ABTASK 
has not been executed for the requested data. 

DPTASK 

The Derived Parameter or DPTASK program computes the values of selected parameters 
that are not directly sensed and recorded during flight. These parameters are derived 
as functions of directly sensed data. The input data is extracted from the RDF to 
calculate the derived parameter data. Statistics on the derived parameters are computed 
in the same manner as the directly sensed data. 

The data and statistics computed in the DPTASK program is in engineering units. 

This is the exception to the raw data file format \diere all data stored in the RDF from 
the SCAN program is in raw units. Hence, ABTASK need not be executed for the derived 
parameter data. Consequently, this data cannot be extracted in raw units nor can the 
data values be packed into four data samples per computer word. 

The calculation of the derived parameters follow the same general format for pro- 
cessing directly sensed data. Parameters are grouped similar to the normal grouping of 
sensor data with no more than 40 sensors per derived parameter pass . The definition of 
these sensors is controlled by the subroutine DPDEF which assigns the mnemonic names, 
pre-processing codes, and sample rates. This information is transferred to the Table 
File making appropriate entries to the Pass and Sensor Tables. The data and statistics 
are then assigned to the RDF according to the entries to the Table File. Accessing of 
derived parameter data can thus be performed through the RDFRD subprogram with only minor 
modifications due to the data not being packed. Calculation of the defined parameters 
is also performed through the subroutine DPDEF. Modifications to the set of derived 
parameters requires software changes to the subroutine DPDEF only. These modifications 
are transparent to the remainder of the DPTASK program or to the rest of the programs in 
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the EASE system. Appendix C contains the current set of derived parameters defined 
by subroutine DPDEF. 

There is one data card required as input to the DPTASK program. As mentioned 
earlier, the subroutine DPDEF assigns a set of parameters to a given pass and builds the 
Pass and Sensor Tables for these sensors onto the Table File. Within DPDEF, the sensors 
are grouped into passes called derived parameter passes. The derived parameter pass must 
be assigned a unique pass number to fit within the other assigned pass numbers of a given 
flight. The input data card is used to assign a flight pass number to a derived parameter 
pass being processed. Figure 24 defines the card image for input to DPTASK. 

DATASK 

The Data Analysis or DATASK program furnishes the user a report of the pertinent 
statistics for up to 18 sensors on one report page. This provides a comparative view on 
the behavior of interrelated sensors during each flight maneuver. A sample of the print- 
out report provided by the DATASK program is found in figure 25. There are several 
aspects of this printout that must be explained in order to understand the information 
presented. 

Each page of printout contains four lines of title information, noted as (1) ori 
figure 25. This is provided on input data cards. The column titles (2), are also ini- 
tially provided on input cards that specify the mnemonic name, pre-processing code, and 
sample rate of the requested data. The mnemonic name and pre-processing code is then 
translated to a column title (3) , if found in the Universal Parameter Catalogue (UPC) 

File (see UPCGEN program). The sample rate of the data (4) is listed under the sensor's 
column title. The titles provided for each line (5) or series of lines (6) is the name 
of the flight maneuver. This information is extracted from the Event Table of the Table 
File. Within the Event Table, each flight maneuver is either classified as a calibra- 
tion, steady or transient maneuver. The DATASK program only lists the statistical data 
for non-calibration maneuvers unless specified differently by card input to this program. 
Only one line of output is required for steady maneuvers (5) and three lines are required 
for transient maneuvers (6) . 

The statistics listed for a steady maneuver are the 95th percentile for vibratory 
data and the average for all other data. For a transient maneuver the data is listed 
in the following format: 
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PPG 

PPG 

PPG 

PPG 

PPG 


=D 

=V 

=S 

=A 

=P 

Line 1 

STATS 

STAT4 

STAT3 

STATS 

STATS 

Line 2 

STATl 

STAT2 

STATl 

STATl 

- 

Line 3 

STAT3 

STATl 

STAT2 

STAT3 

- 


where 

STATl = the maximum value for the flight maneuver, 

STAT2 = for vibratory, the corresponding value of the vibratory component of the 
sensor when the steady component is its maximum value; for steady, the 
corresponding steady value for the maximum vibratory value. 

STAT3 = the minimum value for the flight maneuver, 

STAT4 = the corresponding vibratory value for the minimum steady value, 

STATS = the average value of the data for the flight maneuver, 

PPG = pre-processing code, vdiere D = Direct, V = Vibratory, S = Steady, 

A = Amplitude, and P = Phase. 

The report does not explicitly indicate the type of flight maneuver but it is 
implied by the number of output lines presented. The DATASK program determines this by 
checking the event type code for each maneuver referenced in the Event Table . One fur- 
ther remark in regard to the DATASK output report is that a blank field indicates that 
there are no statistics for that parameter during the indicated flight maneuver. An en- 
tire column of blanks could indicate that the referenced parameter was not on during 
the entire flight. Or, such a condition could also indicate that the input card may be 
incorrectly referencing a parameter either due to a mispunch of the mnemonic name, pre- 
processing code, or the sample rate. 

There are three types of input cards required by the DATASK program: the title 
cards, the maneuver specification cards, and the parameter specification cards. The 
title cards must be the first four cards of the input card deck and each contains any 
alphanumeric characters in columns 1 through 72. 

The maneuver specification cards are next in order of card input. These input cards 
allow specific flight maneuvers only to be reported on the printout. The flight maneuver 
nimber associated with each run as described for the Event Table is entered right-justi- 
fied in columns 2-6. As many maneuver specification cards as required are read by the 
DATASK program. A card with the word "END" in column 1-3 terminates the processing of 
maneuver specification cards. Under normal operations, the requirements for the DATASK 
output request all non- calibration runs to be processed. Rather than input a large set 
of data cards for this mode of operation, the DATASK program assumes such a procedure 
when no maneuver specifications card except the "END" card is present. 
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The parameter specification cards are then processed into the program. These cards 
are grouped into pages with each page containing up to 18 parameter cards each. An 
input data card with the word "PAGE" in columns 1-4 is required in describing a page 
grouping. This card is then followed with up to 18 parameter identification cards with 
one sensor described per card. The final page group being processed must be followed by 
a card with the word "END" in columns 1-3. 

The format for the parameter identification cards are: Columns 1-8 (left- justified) 

is the sensor mnemonics; column 10 is the pre-processing code; and columns 15-17 (right- 
justified) is the sample rate. The input card description for the DATASK program is 
outlined in figure 26. 


CYCLE COUNTS 

This program operates only on the vibratory component of parameters pre-processed 
through the Peak Stress Converter. It provides a count of the number of vibratory data 
values which occur in each of eight class intervals. The lower edge of the first class 
interval is defined as 75 percent of the stated concern level value in the Sensor Table 
for that parameter. Each successive class interval up to the eighth and final class is 
defined in increasing steps of 25 percent of the concern level. The final class interval 
counts the number of data samples above 250 percent of the stated level of concern. 

A sensor's vibratory component will be cycle counted for a given flight maneuver 
only if the following conditions are satisfied: (1) a concern level value greater than 
zero has been defined for the sensor in its Sensor Table; (2) either the 75 percent level 
is reached for at least one data sample within an event or that one-half the difference 
between the absolute maximum and absolute minimum is reached during an event; and (3) 
cycle counting has been specified by card input for a given flight maneuver or parameter. 
The absolute maximum level is defined as the maximm of the sum of the steady and vibratory 
components of the sensor (S+V) and the absolute minimum level as the minimum of (S-V) . 

The type of card inputs vdiich define what vibratory data is to be cycle counted are 
the maneuver specification cards and the parameter specification cards. Maneuver speci- 
fication cards are required only when specific events are to be cycle counted. Other- 
wise, all non -calibration events will be cycle counted. Parameter specification cards 
are required for two modes of parameter selection: all available vibratory parameters 
for a specified pass; or only for specified vibratory parameters. The default mode is to 
cycle count all vibratory components for the flight. A four-card title specification 
is also included as part of the input data deck. The title cards must be present to 
execute the GfCLE COUNT program. Figure 27 outlines the data card input requirements . 
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A sample o£ the output report produced by this program appears in figure 28 . The 
area on the report indicated by (1) is the title specification information as it appeared 
on the input cards. The line indicated by (2) includes the sensor name, sanple rate, and 
the value of its concern level. The column titles indicated by (3) define the statistical 
values presented for each flight maneuver that was cycle counted. The column, "N TOTAL," 
(4) indicates the total number of data samples for that flight maneuver. The remaining 
column headings indicate the eight classes (5) . The last line of the report (6) contains 
the absolute maximum and absolute minimum for the flight and the total number of samples 
in each of the eight class intervals. Each sensor that has been’ cycle counted is reported 
in this manner. 


TIME HISTORY 

The function of the Time History program is to generate a plot of time history data 
from the RDF. The basic format consists of a 25 x 42 cm plot of up to 12 parameters. 
Arrangement of the parameters is four rows of three parameters each. Parameters from the 
first (left most) column are plotted with a solid line. Parameters from the center and 
the right most columns are plotted with long and short dashed lines, respectively. All 
y-axes for each parameter are four cm in length. 

The time scale (x-axis) is fixed at 30 cm in length. The time scale is automati- 
cally adjustable to 1.5 x lO'^, 3.0 x lO"^, or 6.0 x 10“^, where J is an integer which will 
create a sufficiently large scale in seconds for the time span plotted. The time scale 
is defined as elapsed time of a flight maneuver. 

The arrangement of the 12 parameters on a plot is defined as a plot group format 
(PGF) . Provisions have been established to permit up to 40 parameters to be defined 
each in up to nine PGFs per program execution. This permits data comparison of flight 
information for different parameters. In the plotting of data values, if null sanples 
are encountered, the plotting pen is lifted resulting in a visible discontinuity in 
the graph. 

Most of the labeling and PGF assignments are controlled by card input. There are 
five types of input cards described for the program. These types, in their prescribed 
order of input, are: (1) General Title Card; (2) Plot Row Labels Card; (3) Parameter 
Specifications Cards; (4) Heading Label Cards; and (5) Burst Selection Cards. The 
General Title Card must be the first card of the input data deck. It contains any 
alphanumeric characters in columns 2 to 73. The information contained on the card is 
printed at the top of all plots. (See (1) of figure 33.) 
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The Plot Row Labels card prints a two-line row label on the plot, each line contain- 
ing at most 18 characters each. There are four rows per plot and they are numbered from 
one to four - top to bottom. The row labels are specified by PGF and row number. Card 
format for the Plot Row Labels is found in figure 29. An example of the labeling of the 
plot row label is designated as (2) in figure 33. A maximum of 36 (9 PGFs x 4 rows) 
plot row label cards may be included for a job run. Termination of the plot row labels 
card input is with a card containing zero in column 5. It is not necessary to provide 
any infoimation for row labeling. However, the deck setup must include the card with 

zero in column 5. 

The Parameter Specification Cards consist of two input cards per parameter. Figure 
30 describes the foimat of these cards. Up to 40 parar^ter card groups may be defined 
for plotting. Termination of this group of card input is by including a card containing 

blanks in columns 1-8 at the end of this group. 

The fourth group of input cards are the Heading Label Cards. This information is 
placed beneath the General Title Card information on the plot and is designated as (3) 
in figure 33. Up to eight heading items may be defined on a plot. Termination of the 
Heading Label Cards is by including a card with zeroes in columns 1-5. Description of 
the Heading Label Cards format is found in figure 31. 

The final set of input cards are the Burst Selection Cards. Two cards are required 
per burst. A description of these cards are found in figure 32. The Burst Selection 
Card group also requires a termination card viiich contains a zero in column 5. 

Direct output of the Time History Plot Program is a tape formatted to produce the 
requested plots on a CALCOMP plotter. The information has been scaled to a metric scale 
and produced on a 25 x 42 cm area. A sample of a plot produced by this program is found 
in figure 33. 


HARMDNIC ANALYSIS 

This program determines the harmonic coefficient and phase angles for the Fourier 
series expressed as: 

Y = Aq + A^ CosX + B^ SinX + A 2 Cos2X + 

and 

Y = Cq + Cf Cos(X-(}>^) + C 2 CosC2X-(}i2) + 

Given a set of data values for a given parameter sampled at a fixed sample rate, 
the coefficients, A., B., and C- , and the phase angles, are computed on a cycle by 
cycle basis. The values of each coefficient and phase angle computed during each cycle 
are averaged and presented in a printout on a flight maneuver basis. A sample of the 
printout report is found in figure 34 . 


The definition of the data set used to compute the harmonic coefficients and phase 
angles is established through card input. Two types of information must be included 
for calculating the harmonic coefficients: a list of the flight maneuvers and a list of 
sensors and number of cycles to be processed. The order of card input is first the 
flight maneuver or "run" cards, then the sensor mnemonic information. Formats for these 
card images is found in figure 35. The program first reads a list of flight maneuver 
numbers from the run cards and continues to read this information until the characters 
"RUN" do not appear in columns 1-3 of the input card. The program then assumes that 
such a data card contains the sensor information and processes the card image under that 
assumption. The program continues to process data and calculate the harmonic coeffi- 
cients and phase angles for each defined parameters for the given set of flight maneu- 
vers. The program will terminate execution after the final input sensor has been 
processed. 


UPCGEN 

The Universal Parameter Catalogue Generator or UPCGEN program maintains the 
Universal Parameter Catalogue (UPC) File and provides a sorted listing of the file. 

This file is a catalogue of all known sensor mnemonics with their pre-processing codes 
and contains the column and line titles and a data precision code for the respective 
sensors. This information is used in the various reports generated by the software in 
the EASE System. 

The UPC file is a random file and resides permanently in the computer system for 
access by the EASE software system. The entries to the UPC file are arranged alphabet- 
ically by sensor mnemonic and pre-processing code. Each record with the file is 280 
words in length. The first record within the UPC file is a table of contents which 
contains a list of the mnemonic names and pre-processing codes of the first entry of 
each successive 280 word record of the UPC file. This record is uniquely defined with 
the characters "UPC" in the first word of the record. The second word contains the total 
number of entries in the UPC file. Each successive two-word entries contain the mne- 
monic name and pre-processing code of the first entry of each data record in the file. 

A maximum of 139 entries are possible in this table of contents record. 

Each 280 -word record in the UPC file contains catalogue information for 20 UPC 
entries. Hence, the UPC file can grow to a maximum of 2760 entries (20 words per record, 
with a maximum of 139 records) . Each catalogue entry requires 14 data words . A new 
catalogue entry begins at word number 14*(i-l)+l where i is the catalogue entry nuiAer 
within a record (i=l,20). A description of the 14 data words for each catalogue entry 
is found in figure 36. 
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The UPCGEN program maintains the UPCFILE by allowing addition and deletion of 
catalogue entries through card input. A set of command cards are used to indicate to 
the program what type of processing should be performed on the catalogue entries being 
read. The allowable commands by the UPCGEN program are: "INITIA," "DELETE," "INSERT," 
"ROLLEM." IVhen the UPCGEN program encounters an input data card containing these words 
in columns 1-6, the appropriate program logic to perform these commands is set into 
operation. The catalogue entries following such a command will be processed according 
to the logic set into operation by that command. The command "INITIA" is used to 
initialize the UPC file. It assumes no UPC file has been initiated previously so that 
no entries exist on a UPC file. The program then processes the input catalogue entries 
and begins to build the UPC file. Each entry is read into a scratch file for sorting 
before placing the entries into the permanent UPC file. The sorting and building of the 
UPC file is not performed until the command card "ROLLEM" is encountered in the input 
deck. This command triggers the logic that assumes all data entries have been placed 
on the temporary scratch file and the sorting and building procedures can now begin. 

The commands "DELETE" and "INSERT" are used to modify an existing UPC file. The 
"DELETE" command is used to eliminate an entry from the UPC file where the "INSERT" 
places a new entry, in its proper sorted sequence, onto the UPC file. 

Again, these two commands only indicate to the program how the data following 
these command cards are to be processed. The command "ROLLEM" must be included before 
the actual deletions and insertions can take place. Catalogue entry modifications 
are combinations of deletions and insertions. The present entry is commanded to be 
deleted followed by the corrected entry commanded to be inserted. For any type of 
processing to be performed on the UPC file, the command card "ROLLEM" is the last card 
of the input deck. 

The order of input for the various modes of processing defined by the UPCGEN 
program is as follows : 

1. to initialize a UPC file 
"INITIA" 

Catalogue entries (one entry per card) 

"ROLLEM"; 

2. to add new entries to an existing UPC file 
"INSERT" 

Catalogue entries (one entry per card) 

"ROLLEM'; 

3. to delete existing UPC file data 
"DELETE" 

Catalogue entries (one entry per card) 

"ROLLEM'; 
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4. and to modify existing entries 
"DELETE" 

Catalogue entries (one entry per card) 

"INSERT" 

Catalogue entries (one entry per card) 

"ROLLENf. 

The card image format for a catalogue entry is described in figure 37. 

The UPCGEN program provides a list of the current UPC file after the requested 
processing has been completed. The file list is provided as a sorted list by sensor 
mnemonic and pre-processing code and list sorted first by category then by sensor 
mnemonic and pre-processing code. Each sensor is assigned a two-character category code 
which allows the entries to be defined into a subset of sensors with similar character- 
istics. Figures 38 and 39 are sample printouts of the two lists provided by this 
program. 


TP04P AND TABLE PRINT 


There are two programs written for the EASE system to verify data being processed. 
One program, TPDMP, provides a selected listing of the contents of the digitized data 
tape as received for initial processing. The other program, TABLE PRINT, provides a 
listing of the current contents of a flight's Table File. 

The TPDMP program reads a 9-track digital tape that is configured in the Televent 
II (see Appendix B) format and provides a listing of the specified data words within a 
frame of data for either a given time interval or a given number of data frames . The 
TPDMP program determines ^vhat portion of the input tape is to be listed from information 
supplied through input cards. Figure 40 contains the card format required by this 
program and figure 41 is a sample of the output provided. The data values are listed 
as octal numbers. 

The TABLE-PRINT program requires no card input for execution. Each of the tables 
defined in the Table File (see "SETUP") are listed with their current contents. This 
program is useful particularly for those data elements generated by the SETUP, SCAN, and 
ABTASK programs . Figures 42a through 42e are samples of the output listing provided by 
the TABLE-PRINT program. 
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CARD NO. 

COLS. 

CARD FIELD CONTENTS 

1 

1-2 

Data value "LI" 


6-10 

Data value "SETUP" 


21-30 

Data value "INITIALIZE" when program is to run in the ' 



initialize mode. 



Data value "UPDATE" when program is to run in the update 



mode, (left justified) 

Last 

1-2 

Data value "LI" 


6-14 

Data value "END SETUP" 


NOTE: These two cards must be the first and last data cards of the input data cards. 


Figure 3 - Description of card image for "LI" level input. 
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VARIABLE 

NAME 


DESCRIPTION 


WORD(S) 

NO. 


DATA TYPE 


MAXPAS 

Maximum pass number used 

1 

ME VENT 

Number of flight maneuvers 

2 


Not used 

3 

FTIME 

Beginning time of flight (secs) 

4 

FLIGHT 

Flight identification 

5 

DATE 

Date of Flight (DDMMYY) 

6 

TAPENO 

Aircraft tape number 

7 

AIRCR 

Aircraft name 

8, 9 

PILOT 

Pilot name 

10, 11 

COPIL 

Copilot name 

12, 13 

OBSERV 

Observer Name 

14, 15 

ETP 

Engineering test plan 

16 

ESGW 

Estimated gross weight 

17 

KPR 

Airspeed probe recovery factor 

19 

HPC 

T-58 engine chaff (horsepower 
at 100%) 

20 

MRC 

Main rotor rpm at 100% 

21 

Ri ■ 

Main rotor radius in feet 

22 

RT 

Tail rotor radius in feet 

23 

GT 

Tail rotor to main rotor rpm ratio 

24 

GTS 

Tail rotor shaft-rpm 

25 

RELHU 

Relative humidity 

26 

RFBOOM 

Not used 

27 


Figure 4 - Header table data description. 


I 

I 

F.P. 

C 

C 

C 

C 

C 

C 

C 

C 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 

F.P. 
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COLS. 

CARD FIELD CONTENTS 

1-2 

Data value of "L2" 

6-11 

Data value of "HEADER" 

1-2 

Data value of "HT" 

4 

Data value of "1" 

7-8 

MAXPAS (right-justified) 

11-13 

MEVENT (right-justified) 

21-29 

FTIME (HHMMSS.SS) 

1-2 

Data value of "HT" 

4 

Data value of "2" 

6-11 

FLIGHT (left-justified) 

12-17 

DATE (left- justified) 

24-29 

TAPENO (left-justified) 

31-42 

AIRCR (left- justified) 

44-55 

PILOT (left-justified) 

56-67 

COPIL (left- justified) 

68-79 

OBSERV (left- justified) 

1-2 

Data value of "HT" 

4 

Data value of "3" 

5-10 

ETP (left- justified) 

11-20 

ESGW 

21-30 

ESCG 

31-40 

KPR 

41-50 

HPC 

51-60 

MRC 

61-70 

R 

1-2 

Data value of "HT" 

4 

Data value of "4" 

11-20 

RT 

21-30 

GT 

31-40 

GTS 

41-50 

RELHU 


Figure 5 - Header table card image description. 
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VARIABLE 

NAME 


DESCRIPTION 


WORD(S) 

NO. 


DATA 

TYPE 


MAXPAR Actual number o£ parameters defined for this pass 1 I 

SRDIN Sample rate of input data and type of sampling 2 C 

rate 

NOTE: Sample rate type is a 1 -character code 

The acceptable codes are: 

X = Sampling rate is based on time 
through the PCM data stream 

M = Sampling rate is based on the main 
rotor revolution rate through the 
FM data stream 

T = Sampling rate is based on the tail 
rotor revolution rate through the 
FM data stream 

Blank = Sampling rate is based on time 
through the FM data stream 

SRDATA Sample rate of EASE data file and type of 

sampling rate (see Note above for sample rate 

type codes) 3 C 

ISTATC Status code for data availability 4 I 

Code = 0, data for this pass is not available 
in the raw data file 

= 1, data for this pass is available in 
the raw data file (RDF) 

= 2 , data for this pass is available in 
the RDF for output in engineering units. 

lADDR Array containing the record address at which the 5-105 I 

data for a given maneuver is first found for this 
pass. The entries for this array are indexed by 
the assigned number for each flight maneuver. The 
number of entries for this array is one more 
than the number of flight maneuvers. The last 
entry to this array is the next available address 
for data on the RDF for this pass. 


Figure 6 - Pass table data description. 
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VARIABLE 

DESCRIPTION 

WORD NO.* 

DATA 

NAME 


13 (j-l) + 

TYPE 

SNAM 

Mnemonic name of sensor 

1, 2 

C 

PPG 

Pre-processing code. Valid entries are "D" 
for direct processing, "V" for FM vibratory, 
"S" for FM steady, "A" for amplitude, and 
npii £qj. phase components of processed data. 

3 

C 

IPARIN 

Assigned word location within data frame 
formatted by the TELEVENT II system (see 
Appendix B) 

4 

I 

IPARDF 

Assigned word location of data transferred 
to the raw data file (RDF) 

5 

I 

CALTYP 

Type of calibration algorithm to be applied 
in ABTASK routine. Valid entries are: 

Z, X, P, 1, 2 (see ABTASK section of 
documentation) 

6 

C 

EUCVl 

Engineering unit value for sensor's full 
deflection (used in ABTASK algorithms) 

7 

F.P. 

EUCV2 

Engineering unit value for sensor's zero 
offset (used in ABTASK algorithms) 

8 

F.P. 

A 

A - term for sensor as computed by ABTASK 

9 

F.P. 

B 

B - term for sensor as computed by ABTASK 

10 

F.P. 

CALADR 

Calrun table entry index (automatically 
inserted when calrun table entries are 
processed ) 

11 

I 


Not used 

12 


CONLVL 

Level of concern (applicable to FM vibratory 
components only and used for cycle counting) 

13 

F.P. 


* Each sensor table record is 520 words in length, with 13 words per sensor. The 
data description for the "jth" sensor is found in words 13j-12 through 13j of this 
record. 


Figure 7 - Sensor table data description. 
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CARD NO. 

COLS. 

CARD FILED CONTENTS 

1 

1-2 

Data value of "L2" 


6-9 

Data value of "PASS" (left-justified) 


20-21 

Assigned pass number (right-justified) 


25-26 

Numerical value of SRDIN (right- justified) 


27 

Type code of SRDIN 


32-33 

Numerical value of SRDATA (right-justified) 


34 

Type code of SRDATA 

2-41 

1-2 

Data value of "ST" 

(one per 

3-10 

SNAM (left-justified) 

sensor) 

12 

PPC 


14-16 

IPARIN (right-justified) 


18-20 

IPARDF (right-justified) 


22-23 

FM track number assigned (right-justified) 


25-26 

FM channel number assigned (right-justified) 


28 

CALTYP 


30-39 

EUCVl 


40-49 

EUCV2 


50-55 

Analog tape designation (left-justified) 


56-65 

CONLVL 


Figure 8 - Description of card image for pass 8 sensor tables. 
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VARIABLE 

NAME 


DESCRIPTION 


WORD(S) NO. 
6 (i-l)+ 


DATA 

TYPE 


ICE(l) 

Pre-Z or Pre-H calibration run number 

1 

I 

ICE(2) 

Pre-R or Pre-L calibration run number 

2 

I 

ICE(3) 

Pre-X calibration run number 

3 

I 

ICE (4) 

Post-Z or Post-H calibration run number 

4 

I 

ICE (5) 

Post-R or Post-L calibration run number 

5 

I 

ICE(6) 

Post-X calibration run number 

6 

I 


* Each calrun table record is 120 words in length, with six words per entry group. The 
entry group for the "ith" calrun table is found in words 6i-5 through 6i. 


Figure 9 - Calrun table data description. 


CARD NO. 

COLS 

CARD FIELD CONTENTS 

1 

1-2 

Data value of "L2" 


6-11 

Data value of "CALRUN" 

2 

1-2 

Data value of "CT" 


6-8 

ICE(l) (right-justified) 


11-13 

ICE(2) (right-justified) 


16-18 

ICE (3) (right- justified) 


21-23 

ICE(4) (right- justified) 


26-28 

ICE(5) (right- justified) 


31-33 

ICE (6) (right- justified) 

3 

1-2 

Data value of "CS" 


4-5 

Data value of "AC" 


NOTE: Cards 2 § 3 describe the calrun entry for the "Auto Cals.". This group of calrun; 

will be applied to all non-ABl and non-AB2 type of cals for each sensor. The remaining 
groups of calrun entries will modify the calrun entries for those sensors specified 
on the "CS" cards. The order of input for additional entries to the calrun table is 
one "CT" card followed by as many "CS" cards that are required to include the sensors to 
be referenced. 


TYPE 



"CT" 


Card image is the same as defined for card 2 above 

TYPE 



"CS" 

1-2 

Data value of "CS" 


4-11 

Each entry contains the sensor name, "SNAM" as entered in 


13-20 

22-29 

the sensor table (left- justified ) . Note: A blank field 


31-38 

terminates a grouping of sensors referencing a calrun 


40-47 

49-56 

entry. A "CS" card with each field containing a sensor name 


58-65 

will check the card code to see if more sensors are given* 


67-74 

("CS" or a new entry "CT") . 


Figure 10 - Calrun table card image description. 
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VARIABLE 

NAME 

DESCRIPTION 

WORD(S) NO.* 
6 (i-1) + 

DATA 

TYPE 

EVENT 

Event name. 

1,2, 3, 4 

C 

ETYPE 

Event type code. Allowable codes are: 

5 

C 


Z = zero calibration, 

R = full load calibration, 

X = transducer cal event, 

T = transient type of data maneuver, 
S = steady type of data maneuver. 




I = ignore-numbered event contains no 
applicable data. 



ETIME 

Beginning time of event (seconds) . 

^ 

F.P. 


* Event table record contains 600 words for a maximum of 100 events. Each event uses 
six words of the record. The "ith" numbered event is found in words 6i-5 through 6i. 


Figure 11 - Event table data description. 


CARD NO. COLS CARD FIELD CONTENTS 

1 1-2 Data value of "L2" 

6-10 Data value of "EVENT" 

2 thru 1-2 Data value of "ET" 

run no. 

plus 1 5-7 Run number assigned to maneuver (right-justified) 

12-34 EVENT (left- justified) 

38 ETYPE 

41-49 ETIME (HHMMSS.SS) - not a required input. SCAN task 

calculates this data entry to be the minimum data frame 
time tag of the first frame of data of each event for each 
PCM pass. Card input is provided to correct possible 
erroneous time data values contained on the digitized input 
tape. 


Figure 12 - Event table card image description. 
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CARD NO. 


COLS. 


CARD FIELD CONTENTS 


"SD" 

1-2 

Data value "SD" . 


9-10 

Pass number (corresponds to pass number defined in the SETUP 
program) (right- justified) . 


14-15 

File code of input data tape (right- justified) (corresponds 
to the file code designation on the job control card-see 
Appendix A) • 


16-20 

File number for this pass on input data tape (right-justified) 


25 

Time option-applicable for PCM data only 

= 0 use time recorded during flight which is contained 
in the data frame ; 



= 1 use time tag furnished when data was digitized. 


28-30 

Total number of data bursts to be processed for this pass 
(right-justified) . 


31-35 

Code to signify pass to be scanned contains data requiring 
tracking filter analysis (right-justified) 

= 0 no tracking filter analysis for this pass ; 



= 1 tracking filter analysis to be performed- 


Figure 13 - Card format for "SD" cards of SCAN. 


CARD NO. 

COLS. 

CARD FIELD CONTENTS 

"BT" 

1 

t-H 

Data value "BT". 


6-10 

Burst number (right-justified) . 


15 

"ICOND", Condition Code 

ICOND = 0, process burst by run tone ("BT" card not,' 
required for burst processed for ICON=0) ; 



ICOND = 1, skip burst of data defined by run tone signal; 



ICOND = 2, process burst of data by time interval specifiec 
on this card) 



ICOND = 3, burst of data not on data tape for defined 
maneuver. Process a "dummy" record of data 5 
statistics for this maneuver. 


21-32 

Beginning time of burst (required for ICOND =2) 
Format is HH-MM-SS.SSS . 


34-45 

Ending time of burst (required for ICOND =2) 
Format is HH-MM-SS.SSS. 


Figure 14 - Card format for "BT" cards for SCAN. 


CARD NO. 

COLS. 

CARD FIELD CONTENTS 

"LI" 

■1 

Data value "LI" . 

Must be present as last card of input data deck. 


Figure 15 - Card format for "LI" card for SCAN. 
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Figure 16 - Burst interval listing. 
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SUBROUTINE RDFRD (ITOS, ITYPE, ICONV, IRUN, NPAR, NAMES, PPG, SR, ISMPL, LSMPL, 
OUTBUF, ISZBUF, TOS, NFOUT, MSG, lER) 


DEFINITION 


= 0, when initial call with given set of param spec's which must be used to 
search sensor tables. 

= 1, when previous call with same set of param spec's has been used to define 
table of subscripts argument (TOS) thus averting search of sensor table. 

= 0, when data samples are being requested. 

= 1, when statistics are being requested. 

= 0, if results are to be in raw units. 

= 1, if results are to be in eng. units. 

Run (event) number requested. 

Number of parameters requested. 

Array of parameter mnemonics (NPAR in length) . 

Array of parameter preprocess codes (NPAR in length) . 


ICONV 


5 . NPAR 

6. NAMES 


8. SR 


9. ISMPL 

10. LSMPL 

11. OUTBUF 

12. ISZBUF 


13. TOS 


14. NFOUT 


15. MSG 


16. lER 


Array of parameter sample rates (NPAR in length) . 

If data is being requested, all must be same. 

Beginning sample number requested, if data. 

Ending sample number requested, if data. 

Output buffer for data or statistics 

Size of OUTBUF: 

if asking for stats, size should be (lOxNPAR) 

if asking for data, size should be (LSMPL-ISMPL+l)x(NPAR) . 

Table of subscripts, four words per parameter built within routine 
when ITOS = 0 for possible subsequent calls with same set of parameters 
Used by routine, thus averting search of sensor table; when ITOS = 1, 
the four words are: 


TOS (1) = PASS number 

TOS (2) = ELEMENT numberl , ^ ui 

TOS (3) - A when parameter is available. 

TOS (4) = B ^ 

Zeros are inserted in all four words when parameter is not available. 

Output array of actual number of frames returned for each parameter 
(NPAR in length). For stats, NFOUT will equal 10. 

Array of output parameter messages (NPAR in length) . 

= 0, no errors 

= 1, less data returned than requested because ending sample requested is 
greater than last sample available. 

= 2, beginning sample requested is greater than last sample available. 

Output error code determined as the sum of the following individual 
codes : 

= 0 No errors, 

= 1 CAL run requested, 

= 2 Parameter level errors exist, 

= 4 No such run, 

= 8 Buffer size error. 


Figure 18 - Subprogram RDFRD argument list. 
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Figure 20 - ABTASK raw units statistic summary. 
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Figure 21 - ABTASK engineering unit summary. 


42 



I o coo o o oc 
rO DOO OiO'OO 
; O OCO O'OOC 
) O G >00 OOOO 
5,0 O'OC 0:0.00 

000 


^ Ic 

fS 

^ 1 

Ul| 

i ; 


a. ; 


00 
^ 00 
"Z 00 
UJ- •■ 
o m m 

Ll^ > ' 


I 

( 

» • «o 

> 'OCM 

ui rs> 


3<0 O 00 O O; 

i 


o o:OiOioio:ao 


00 

00 

O O 
O’O 
o o 
00 


o' C 000 OO'OO 
00 o O o o 000 
00 oco oooo 
00 O'O'O e 0:00 
o|o coo cooc 
00 00 o o; 01 00 


! 1 


ocoo 000000 00 00 o 00 
0 0 00000000:0 000 000 

OOOO'OOOOCOCO CO OCO 

0 00000 ooo oioo 00 o. 00 
000c o coo C 00 O O OC CO 
00 oojooo^ooloo 00 000 


t I 

ITi 


I h 


O'OiOOOOOiO.O 


0 0 O CiO o 


I I 


ill' 

o,oiO'0!c 


> (V O U^(^ O*' 

i«a,o3i«-t^o rs.,^oro 

r*«- ^ CNj ^ if» fo 


o 0100 oiooo I 

O OIN.O OjOOO < 

o 003 o OlO 00 a o I 
u>ifynu>if>Af)loir>iAu>i 


■«-f cvj ■«■ r>- n ■w-i eo «c iot«^ o tr» cv r^'Of«-fo> 
<oo>ooo n »-i o ir\ 03 r'- lA m r«> co o» o» 
rs. ^ O' >0 rv 


riinca>oo3b*'«rc\j« 
«0 rOCMlA ^ • 

O' *o«roi>.|'0 0'irt I 


rotn 00000 00 000 
^ CO 00000 00 o o o 
. •. *00000 00 000 

carJirviAUMninirtmiAiAm: 


v'Ob'O'orv o*- 4 or\> 

t r«.c 3 cor^ CM 0 02 wco 
k UMfM^K>^ OV''5TW 


ro " 
in r>- ' 

O' CA . 


«r r>* V mcocoU\iAU\o>'ovw 


Q 00 0 0000(000 O O'Oi 


. -OstOM K) CMCM^ CMlOfOrOhvrO^- 


O O oloo o o 000 


I ! 


■ >A.^ o roo'OCM.' 

, aj «>»o«*'OS.(Si>-ti 

> m >0 r>«. M 3 'O 'O M 3 cv ' 



( I 

o in fMr» CM CO CM o cv in jd cm 

r-t O <13 O O* «r 03 

•k*«*«*>^* 

00 ^ CO <o o CO o 
M(,^:v-<CMMitCMr3CMCM 


»o tn lA o> K> Mr ffi «*3 r 
MuxorscMrooojro^oiocorMnp 

. •«.-» »J*».*«.-v<3'OmM)’rf3 0«0<0v 

cersiro^otncM- — •. 
WCMCM'vCCMmH'**^**' 


, ! I 

) ooio lOiOlOo lO o o!o o c 'O a !Oic o a a o o |o o o -o o 00 o ><30 00^ 

I 000 0)0 oo o o o o 0-0 o o'otoo o-oooooo oo'o'oa 00 o a o . 
( oio 00 o o 0*0 vo^ooooooo 00 000 

> -*vo CM o ^ w CM «r co« ••• *.•.«.». *4 •> 


CJl i 

muJ. 00 o 000 oiooo 00 oto 0 0 0 4 
^OTK OOO 000 0000 Oo 000004 


I 


! 


1 OO lO ‘O-O.-O io|o 

oo -ojcnio 

o« •• •« «• 



.Q .o 

OiO 10*0*010^ 

j ztns: - 

•.. a»4 ^ ^ »4 V4 

M ^ »» •- 

• •opw VI oocao^ oMXMi oi* »o cm • 




- 2 : — in 

n in m 4- m m v* 

■oin M3 iT| m 

, 1 i 

ICV M PO r* -M" 

4 r> P7 r= ro fO 

isp 90 r. If. 

L7l 

4> k. in m o ut 

Vi 

1 2>« . 

1 ' I 1 



' ; 




1 

1 ' i ‘ ' 

i M r 


1 1 ‘ ' 



1:1'. 


1 l<4CS.X 

i ■ : 1 'i 1 


1 ! i ' 

! ■ i i ' 


1 i 

! ! 1 ; : 


i ; 


O' < ' 

tn tn ! V 

I'll' 

ID i o' 

2 ' ' 

\z 




, OOOCM z 

Z 9^9- , 

O IIJ 2 

C3 n. 

Ct X 

3 O O CM CM. 


i • ' 1 

-n*!cM r«* • a. a - 3 

jc -St , 

O ' CP' C9 

2! • 2 

2 CP 

O Cv CM . 1 1 ' 


i 1 ■ 

1 . <«']« 

m M22 1=2 £3 

'•#*> m 

2 BT ca 

• : 

«♦ 9 iT|m 




•M -M 

O O ' *4 •* • 

-fO • 

h- Z CO 

V) C/3 

c/> n ' M '< ''4 



1 o-»t*fc«*Lni/3cny3r«>r^^»-**-' 

•m 'Mi CL tn ^ *-Q.- 


a. Q_ Qj '«* • 



•^a 

X. • Ci. a. a 

X . '.K, • • 

2 ►- 

.01- CP •«. 

< -c. 

< X ■— 





O X 

I~« z 2 

1 > 

_i -j -«•• .• 


■u\ • 

1 l/J 12 X- - _J 2 2 i-l •<■ CC 

X * (X <2 >V «t Lt. 

li. u. 

J_ to to x o 


- i . 

. , Lii tn 

t£ L. U U 

XXXXpt'JX • -<03 

» 


IP u> 



£3 u: *l * 

- 03 2 2 2 

< »- 2 CO lU 

n -J • - 


• C O « -M 


•-J2 


i-j*r C c >»— 

►- s: 

•ae • 

r. • o o 

c •- 

IC fO 



U.C rHCMCMCMin^^U.r3^:2U.U-»-*a ; 

(/i cr< cn OJ *? i/>'>-cx3 

ooooQ.o‘*o«>*o<^ co^-»-^-ac 

c: CT’C:— 'Tt—iX C3 X-3CI^'5C X 
Ck.cc.ck.cA^»*<!S»»*»>ii»c£«M io^ 

HT4^Z'h--t — 0(0*0102 
tr cr o rs. o O' *-» I- 


• •zi*^ tnut tfl 
■>« cr oc O 

- : roar 

* 9a. > (Lce. IE- 

^ O »— ',3 , . 

CMcn r-. U 2 j'_i -J 

r*.0‘*»2 ^ M 

< L3 U 
^ X >c m 
•rtcn 

> CM i , i 

ac X M 11 M MT f> 

:n*- K 2 I ■ 


u uo 

X 03 ISI 


t» ■! • O . 

CJUJ 03 i 03 iJ Ql L 


I 


31 : 

• O ' • o. !s ci 

inec cnu. 

*- »- c*. ^ o •-« <3 —• 

iit*z»y«o; ic3icj:_-«x:^'ix* 
ec ‘ o*ek-o*4>9«9it 

102:0 ;o in .'C-i- >t— I- II- 

or _j _j o: tr 


(i. i«. u. »- 
1 :2 -iC-iCB 


O' a 

u 9^ t*. n. Mft 

CJCJ -JOi KJ[Q/ 


» IM WO'O «H CV U«M> r*c 

«-4 ^ «4>«« v4<«rl «rC 


L- ' M 

ka-Mi -oc 14^ M »o n« 


Z2 xu.,u.m tn u. u. *-i T-* 

«k, L&. Li. «,C j-M • 'I— ^ [ 

CL 5 • tncn 

o Cl CJ» • 00 

H- c or C 2 i-<;*^ 

tr« fp irn ; 

V:2:Z I I 
o CP ^ _nj 
-< C3; 

uj ^ cc <r 43 KJ 

J >CQS 


CL» H» 91 • 

r- 

tXt 03 


»,*uvw>r«iB 


Figure 22 - Sample output for STATPRINT program. 
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CARD NO. 


COLS. 


CARD FIELD CONTENTS 


1 n 

1-2 

IPASS - Pass number requested [right-justified) 

- only required if all sensors of one pass are 
to be tabulated. 


3-10 

NAME - Mnemonic name of sensor (left- justified) 


15 

PPC - Pre-processing code of sensor 


16-20 

SR - Sample rate at which sensor has been processed 

onto the RDF (right-justified) 

NOTE: NAME, PPC, SR to be furnished when a specific 

sensor is to be tabulated 


25 

ICONV - = 0 data tabulated in raw units 

= 1 data tabulated in engineering units 


Figure 23 - Description of card image for STATPRINT. 


CARD NO. 

COLS 

CARD FIELD CONTENTS 

1 

1 

NPASS - Number of derived parameter passes to be processed. 


2-3 

JPASS(l) - Derived parameter pass number to be processed 
first (right-justified) 


4-5 

KPASS(l) - Pass number assigned to first derived parameter 
pass (right- justified) 


6-7 

JPASS(2) - Derived parameter pass number processed second 
(right- justified) 


8-9 

KPASS(2) - Pass number assigned to second derived parameter 
pass (right- justified) 


10-11 

JPASS(3) - Derived parameter pass number processed third 
(right- justified) 


12-13 

KPASS(3) - Pass number assigned to third derived parameter 
pass (right-justified) 


14-15 

JPASS(4) - Derived parameter pass number processed fourth 
(right-justified) 


16-17 

KPASS(4) - Pass number assigned to fourth derived parameter 
pass (right- justified) 


18-19 

JPASS(5) - Derived parameter pass number processed fifth 
(right- justified) 


20-21 

KPASS(5) - Pass number assigned to fifth derived parameter 
pass (right-justified) 


Figure 24 - Card image for DPTASK program. 
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Figure 25 


Sample printout for DATASK program. 
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CARD NO. 

COLS . 

1-4 

1-72 

5-n 

2-6 

n+1 

1-3 

n+2+^m 


n+2 

1-4 

n+3 etc. 

1-8 


10 


15-17 

Last 

1-3 


CARD FIELD CONTENTS 

Title Cards; Any alphanumeric characters 

Maneuver specification cards (one per run). 

Run number (right- justified) . 

NOTE: No run numbers specified indicates all non- 

calibration runs to be processed. 

Value of "END" required input card even when no maneuver 

identification cards have been included. 

Parameter specification cards • 

Value of "Page" . 

Sensor mnemonic (left- justified) . 

Pre-processing code . 

Sample rate (right-justified) . 

NOTE; Up to 18 parameter identification cards allowed 
within a page grouping. Repeat page grouping as 
necessary beginning with data card containing 
"Page" in columns 1-4. 

Value of "END" . 


Figure 26 - Card description for DATASK program. 


CARD NO. 


COLS. 


1-4 

l->n 

n+1 

n+2->m 


2-72 


(1-5) 


1-3 


4-5 

11-18 

20-25 


CARD FIELD CONTENTS 


Title specification cards containing any alphanumeric 
characters . 

Maneuver specification cards 

Flight maneuver number (right- justified) one entry per 
card. No maneuver specification cards will default the 
program to cycle count all non-calibration maneuvers. 

Value of "END" Note: This card must be present even if 

no cards containing flight maneuver numbers are present. 

Parameter specification cards 

Type of input for parameter specification determines 
three modes of operation; 

Mode = 1, all vibratory components with concern level> 0 
to be cycle counted; 

Mode = 2, all vibratory components with concern level> 0 
within stated pass ninnber to be cycle counted; 

Mode = 3, specified sensor's vibratory component to be 
cycle counted if concern level> 0. 

Type of input required for each mode: 

Mode = 1, one blank card. 

Mode = 2, pass number (right- justified) . 

Mode =3, 

sensor mnemonic name (left- justified) . 
sample rate (right-justified) . 


t — 

Figure 27 - Card input for cycle count program. 
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Figure 28 - Sample printout for cycle count program. 
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CARD NO. 

COLS. 

CARD FIELD CONTENTS 

l-»36 

5 

Page group format number (integer value l->-9) 


10 

Row number (integer IM for rows numbered from top (1) to 
bottom (4) 


11-18 

Alphanumeric information for first line of label. 


29-46 

Alphanumeric information for second line of label. 

Last 

5 

Data value of "0". 

NOTE: Last card must be included in deck setup even if 

no plot row label cards are included. 


Figure 29 - Time history plot row labels card format. 



CARD FIELD CONTENTS 


Mnemonic for sensor (left- justified) 

Preprocessing code 
Sample rate (right- justified) 

18 Character Y-Axis label - first line (See(4), Fig. 33) 

18 Character Y-Axis label - second line (See (5), Fig. 33) 

Four character direction note for upper level of scale 
(See(6), Fig. 33) 

Four character direction note for lower level of scale 
(See(7), Fig. 33) 

Parameter's plot position number for PGF#1 (right-justified) 
Parameter's plot position number for PGF#2 (right- justified) 

Parameters plot position number for PGF#9 (right- justified) 
NOTE: Plot positions are number 1-12 beginning with the 

top left-most position down to the bottom right-most 
position. 

Range of primary scale (floating point) . 

Value at bottom of primary scale (floating point) . 

Range of secondary scale (floating point) . 

Value at bottom of secondary scale (floating point) . 

NOTE: Primary scale will be used unless data exceeds 

scale by 20%. 

Scale precision index number for printing scale (right- 
justified) , 

Option flag to reference all value to first non-null value. 
If entry is "1", the first non-null data sample will be 
subtracted from all subsequent samples. 

♦Above 2-card formats to be repeated for a maximum of 40 
parameters. (n=l->40) 

Blank - required card to terminate parameter specification 
card group. 


Figure 30 - Time history parameter specification card format. 
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CARD NO. 


COLS. 


CARD FIELD CONTENTS 



Heading number (1-8) 

Eight character information for line 1 . 

Eight character information for line 2. 

Eight character information for line 3. 

Data value of "0" - must be included to terminate input of 
heading label card group even if none have been included 
in the deck setup. 


Figure 31 - Time history heading label card format. 


CARD NO. 



11-20 


21-30 


11-10 

21-30 

31-40 

41-SO 

61-70 

71-80 


CARD FIELD CONTENTS 


Flight maneuver number to be plotted (right-justified) . 

PGF number to be used for this plot (right-justified) • 

Start time of plot in seconds of elapsed time into 
maneuver (floating point) (0.0 sec. would designate a 
start time at the beginning of a maneuver) . 

Elapsed stop time of plot in sec (floating point) . 

Alphanumeric title of maneuver (See (8), Fig. 33). 

Option to list data being plotted: 

= 0 no printout to be produced, 

= 1 printout of data values produced. 

Line 4 of heading label for heading #1. 

Line 4 of heading label for heading #2. 

Line 4 of heading label for heading #3. 

Line 4 of heading label for heading #4. 

Line 4 of heading label for heading #5. 

Line 4 of heading label for heading #6. 

Line 4 of heading label for heading #7. 

(See(9) of Fig. 33) 

*N0TE: Above 2-card format to be repeated for each plot 

to be generated 

Data value of "0" - must be included as last card of 
this group. 
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Figure 33 - Sample time history plot. 
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Figure 34 - Sample listing of Harmonic Analysis program. 
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CARD NO. 

COLS. 

CARD FIELD CONTENTS 

1^2 

1-72 

General title cards. 

3-^n 

1-3 

Data value "RUN". 


6-10 

Flight maneuver numbers to be processed (right-justified) . 


11-15 

NOTE : First blank field encountered on card image 



terminates the processing of input flight maneuver 


16-20 

numbers . 


21-25 



26-30 



31-35 



76-80 


n+l->m 

1-8 

Sensor mnemonic name (left-justified) . 


11-15 

Sample rate of sensor data (right-justified) . 


16-20 

Beginning cycle number of data within flight maneuver to 
commence calculation of harmonic coefficients and phase 



angles (right- justified) . 


21-25 

Ending cycle number (right-justified) . 


Figure 35 - Card image for Harmonic Analysis program. 
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VARIABLE 

NAME 

DESCRIPTION 

WORD(S) 

NO. 

DATA 

TYPE 

DNAME 

Concatenated name and pre-processing 
code of sensor (first eight characters 
are mnemonic name and eleventh 
character is pre-processing code) . 

1,2 

C 

PC 

Parameter category code. 

3 

C 

JINDEX 

Integer precision code index. 

4 

I 

CTITL 

Six word column title. 

5 10 

C 

LTITL 

Four word line title. 

11 14 

C 


Figure 36 - Data description of UPC file data entry. 


CARD NO. 

COLS. 

CARD FIELD CONTENTS 

l->n 

1-2 

Parameter category code. 


4-11 

Sensor mnemonic name (left-justified) . 


13 

Preprocessing code for sensor entry. 


16-17 

Integer precision code index (right-justified) . 


19-54 

The 36-character column title. 


57-80 

The 24-character line title. 


Figure 37 - UPCGEN program data card description. 
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Figure 38 - UPCGEN sample listing of sorted sensor data. 
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Figure 39 - UPCGEN sample listing of sorted data by category. 
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CARD NO. 


COLS. 


CARD FIELD CONTENTS 


l->n 




2-18 

Starting time. 

20-36 

Stopping time. 

NOTE : The format for both starting and stopping time is 

DAY HR MIN SEC 
XXX-XX-XX-XX.XXXX 

40-43 

Number of records (right-justified) . 

45-46 

Tape file number (right- justified) . 

48-50 

Starting data word number (right- justified) . 

52-54 

Stopping data word number (right-justified) . 

NOTE; If any of the above data fields are zero or 
blank the following procedures are assumed. 


1) If the stopping time is zero or blank, then the 
number of records specified in columns 40-43 are 
listed. 


2) If the number of records is also zero or blank, then 
twenty records will be listed. 


3) If the file number is zero or blank, then a file 
number of "1" is assumed. 


4) If the starting and stopping data word numbers are 
blank, then all data words within each frame is 
listed. 


’^OTE: Any number of data cards may be present for 

listing different portions of the data residing 
on the input tape. 


Figure 40 - Description of card image for TPDMP program. 
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Figure 41 - Sample listing of TPDMP program. 
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Figure 42a. - Sample listing of TABLE PRINT program. (Header Table) 
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Figure 42c. - Sample listing o£ TABLE PRINT program. (Sensor Table) 
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Figure 42d. - Sample listing o£ TABLE PRINT program. (Event Table) 
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Figure 42e. - Sample listing o£ TABLE PRINT program. (Calrun Table) 
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APPENDIX A 

The Honeywell 600 Job Control Language for the EASE System 

The EASE software system was originally designed for operation on the Honeywell 600 
computer system. Many of the design features have been defined for optimal use of this 
computer equipment using DSS 180 disk packs. These disk packs can contain approximately 
145 million bits or 4.032 million 36-bit data words of usable storage. The operation of 
the EASE system has been configured to allow sufficient storage for a complete flight of 
data on one DSS 180 disk pack. 

The Raw Data File (RDF) for a fliglit consists of several physical files: the Table 
File, the Statistics File, and the Data Files -- one for each pass of data. One DSS 
180 disk pack is designed for storing a basic flight data configuration for the RSRA 
project. Figure A-1 is a summary of the file configuration for the RDF. Such a file 
scheme is sufficient for most flights. 

The structure of the file configuration is defined through the Honeywell 600 File 
Management System^ . A physical space is defined through the File Management System by 
a catalogue file structure. Presently, there are two DSS 180 disk packs assigned. 

Each is configured with the same physical size for the files in the RDF so that data from 
^0 flishts can be processed at one time. The distinction between data files configured 
on one disk pack from those on the second disk pack is by the catalogue file structure. 
This structure definition begins from the assigned user master catalogue name RSRATEST. 
Sub-catalogue names are assigned under RSRATEST for each disk pack. 

These sub-catalogue names are FLTA and FLTB. Under the sub -catalogue FLTA, is 
another catalogue name residing on the disk pack called PCKA. Similarly, under FLTB is 
a catalogue called PCKB. File names are then assigned to each physical file required 
by the RDF. The disk pack with a sub-catalogue structure of FLTA/PCKA is assigned a 
label name of RSRAl and the disk pack structured as FLTB/PCKB is assigned a label name 
of RSRA2. Hence, data to be stored or accessed using the disk pack RSRAl is defined 
through the catalogue string RSRATEST/FLTA/PCKA, and for disk pack RSRA2 the catalogue 
string is RSRATEST/FLTB/PCKB . 

The names assigned to each of the physical files of the RDF are the same for both 
RSRAl and RSRA2. These file names are stated in figure A-1. All of these file names 
are associated with a respective file code within each program of the EASE system. For 
example, the Table File, named TBLFL, is assigned a file code of 07. This association is 
defined through the job control language for the Honeywell 600 system. It is through this 

^ DB54, File Management Supervisor. Honeywell 600 System Reference Manual, March 1973. 
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means that the program being run is identified, all user supplied and system routines are 
loaded, and all peripheral allocations are made. The following is a brief description 
in the order of input, of the job control language cards required by each program of 
the EASE system^ . The title of each card described is contained on the job control card 
beginning in column 8. 

SNUMB. This is the first card of any job run and is inserted by the computer 
operations personnel. It contains a unique number for the job being executed. 

IDENT. The second card is a program identification card. It contains the assigned 
program number for the software. 

USERID. This card informs the operating system what user master catalogue is being 
accessed along with the appropriate password identification. 

MSGl . This card contains textual information that is written on the operator's 
console. It is used here to inform the operator which removable disk pack is to be 
placed on-line. 

OPTION. This card is used here to automatically allocate the card reader, card 
punch, and line printer to the normal FORTRAN defined file codes . 

EXECUTE. This control card instructs the operating system to load the program 
and any required system library routines and executes the program. 

LIMITS. This control card contains four pieces of information required to load and 
execute the program. First is the amount of CPU time in decimal hours required to execute 

the program. Second is the amount of memory in conputer words to load all user and 

system routines. Third is the overlay area required in computer vrards. And last is the 
total amount of lines of output to be generated on the line printer. All of these values 
are basically limits that instruct the operating system not to exceed. 

TAPE, TAPE9, FILE, PRMFL, SYSOUT. These are the peripheral allocation cards. Each 
one allocates a particular type of input/output device to be used by the program. The 
"TAPE" card allocates a 7 -track tape handler, the 'TAPE9" card allocates a 9 -track tape 
handler, the "FILE" card allocates a scratch disk area, the "PRMFL" card allocates a 

particular assigned permanent file area, and the "SYSOUT" card assigns the printer in an 

off-line mode. Each of these cards contain further information to associate a named file 
code form within the software to these devices. 

ENDJOB. This is the last card in the job run and instructs the operating system 
that no further activities are to be processed for this job run. 

The program and input data decks are also included as part of a job run. The 
program deck is placed after the "OPTION" card and the input data cards are placed 
immediately preceding the "ENDJOB" card. 

^ BS19, Control Cards Reference Manual, Honeywell 600 System Reference Manual , 
February 1973. 
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Figures A-2 through A-13 contain the job control language cards required to execute 
each of the programs in the EASE system. These figures are examples using the RSRAl disk 
pack for the RDF. These examples can be applied to another assigned disk pack simply by 
requesting the appropriate disk pack on the 'MSGl" card and defining the correct catalogue 
file string on the "PRfTFL" cards. For example, to use the RSRA2 disk pack in the SETUP 
program, the text of the "MSGl" card would be changed to read: 1, PLEASE lOUNT DISC PACK 
RSRA2. The "PRMFL" card would be changed to read 07, R/W,R, RSRATEST$XXXX/FLTB/PCKB/ 
TBLFL. 

Within the information contained in each of the "USERID" and "PRflFL" control cards, 
the file defined as "XXXX" must contain the correct password assigned to the user 
master catalogue, RSRATEST. This information shall be given to authorized users of the 
system. Also, on the "TAPE" and "TAPE 9" control cards allocating input tapes, the 
field designated as "NNNN" is to be replaced by the assigned magnetic tape number. 

It is not necessary to run each program independently. For example, the SETUP, SCAN, 
and ABTASK programs could be stacked to execute as one job run with each of the three 
programs as separate activities. To do this, only one set of job control cards for 
SNUMB, IDENT, USERID, MSGl, and ENDJOB are required. That is the first four job control 
cards are required only once and can be eliminated from the beginning of the deck setup 
for the SCAN and ABTASK. Also the ENDJOB is only required after the last activity so this 
card can be eliminated from the end of the SETUP and SCAN program. Figure A-14 lists 
the deck setup for running these three programs as one job run. This can be done for 
any of the programs in the EASE system. However, care should be taken so that the order 
of activities follows a logical operational procedure for processing the data. 
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RDF 
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22 

21 
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Derived Par. 
Data File 
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Total Size of RDF 
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EXECUTE 
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PRMFL 


112320, EASE 
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RSRATEST$ XXXX 

FORTRAN 


08,19K,,2K 

08 

07 , R/Q , R, RSRATEST$ XXXX/ FLTA/PCKA/TBLFL 
01,AIR,3R 


ENDJOB 


Figure A-2. - Setup routine deck setup using disk pack: RSRAl. 
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ENDJOB 


Figure A-3. - Scan routine deck setup using disk pack RSRAl. 
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Figure A-4. 

- Abtask deck setup using disk pack RSRAl. 
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***E0F 

ENDJOB 



Figure A-5. - Statprint deck setup using disk pack RSRAl. 
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SNUMB 

IDENT 

MSGl 

USERID 

OPTION 


(Program deck) 


EXECUTE 

LIMITS 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 


112320 EASE 

l.PLEAk MOUNT DISC PACK RSRAl 

RSRATEST$XXXX 

FORTRAN 


50,23K,,2K 

07,R/W,R,RSRATEST$Xm/FLTA/PCKA/TBLFL 

09,R/W,R,RSRATEST$XXXX/FLTA/PCKA/STATS 

19. R,R.RSRATEST$ XXXX/ FLTA/PCKA/PASS9 

20, R,R,RSRATEST$XXXX/FLTA/PCKA/PASS10 
23,R/H,R,RSRATEST|XXXX/FLTA/PCKA/PASS13 


***EOF 


ENDJOB 


Figure A-6. - Dptask deck setup using disk pack RSRAl. 


SNUMB 

IDENT 


USERID 

OPTION 


112320, EASE 

1, PLEASE MOUNT DISC PACK RSRA 

RSRATEST$ XXXX 

FORTRAN 


EXECUTE 

LIMITS 

PRMFL 

PRMFL 

PRMFL 


20,17K,,5K 

07 , R , R , RSRATEST$ XXXX/ FLTA/PCKA/TBLFL 
09 , R , R , RSRATEST$ XXXX/ FLTA/ PCKA/ STATS 
35,R,R,RSRATEST$XXXX/UPCFL 


ENDJOB 


Figure A-7. - Datask program deck setup using disk pack RSRAl. 
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SNUMB 

IDENT 

MSGl 

USERID 

OPTION 


(Program deck) 


EXECUTE 

LIMITS 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 


(Data cards) 
***EOF 


SNUMB 

IDENT 

MSGl 

USERID 

OPTION 


(Program deck) 


EXECUTE 

LIMITS 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

PRMFL 

TAPE 

SYSOUT 


(Data cards) 


***EOF 


ENDJOB 


112320 EASE 

l.PLEAk MOUNT DISC PACK RSRAl 

RSRATEST$ XXXX 

FORTRAN 


20,18K,,5K 

07.R.R.RSRATEST$XXXX/FLTA/PCKA/TBLFL 
09 , R , R , RSRATESTSXXXX/ FLTA/PCKA/ STATS 

1 1 , R , R , RSRATESTS XXXX/ FLTA/PCKA/ PASSl 

12. R.R.RSRATESTSXXXX/FLTA/PCKA/PASS2 

13. R.R.RSRATESTSXXXX/FLTA/PCKA/PASS3 

14 , R , R , RSRATESTSXXXX/ FLTA/PCKA/ PASS4 

15. R.R.RSRATESTSXXXX/FLTA/PCKA/PASS5 

16 , R ,R , RSRATESTSXXXX/ FLTA/ PCKA/ PASS6 

17 , R , R , RSRATESTSmX/ FLTA/ PCKA/ PASS7 

18. R.R.RSRATESTSXXXX/FLTA/PCKA/PASS8 


Figure A-8. - Cycle count deck setup using disc pack RSRAl. 


112320 EASE 

l.PLEAk MOUNT DISC PACK RSRAl 

RSRATESTS XXXX 

FORTRAN 


20,22K,5K 

07. R.R. RSRATESTSXXXX/ FLTA/PCKA/TBLFL 
09. R.R. RSRATESTS XXXX/ FLTA/ PCKA/ STATS 

19.R.R.RSRATESTSXXXX/FLTA/PCKA/PASS9 

21. R.R.RSRATESTSXXXX/FLTA/PCKA/PASS11 

22. R.R.RSRATESTSXXXX/FLTA/PCKA/PASS12 

23. R.R.RSRATEST$XXXX/FLTA/PCKA/PASS13 
50,x50D, , , ,556-BPI-PLOT-TAPE 

59 


Figure A-9. - Time history deck setup using disk pack RSRAl, 
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Col. 

16 


Col. 

Col. 

Col. 

1 

8 

16 

$ 

SNUMB 


$ 

IDENT 

112320, EASE 

$ 

MSGl 

1, PLEASE MOUNT DISC PACK RSRAl 

$ 

USERID 

RSRATEST$XXXX 

$ 

OPTION 

FORTRAN 

(Program deck) 


$ 

EXECUTE 


$ 

LIMITS 

20,22K,5K 

$ 

PRMFL 

07,R,R,RSRATEST$XXXX/FLTA/PCKA/TBLFL 

$ 

PRMFL 

24,R,R,RSRATEST$XXXX/FLTA/PCKA/PASS14 

$ 

PRMFL 

35,R,R,RSRATEST$XXXX/UPCFL 

(Data cards) 



$ 

ENDJOB 


***E0F 





Figure A-10. 

- Harmonic analysis deck setup using disk pack RSRAl. 

Col. 

Col. 

Col . 

1 

8 

16 

$ 

SNUMB 


$ 

IDENT 

112320, EASE 

$ 

USERID 

RSRATEST$XXXX 

$ 

OPTION 

FORTRAN 

(Program deck) 


$ 

EXECUTE 


$ 

LIMITS 

15,15K,5K 

$ 

PRMFL 

35 , R/W , R , RSRATEST$XXXX/UPCFL 

$ 

FILE 

36,x36R,15R 

(Data cards) 


$ 

ENDJOB 


***E0F 




Figure A- 11. - Upcgen program deck setup. 


71 





Col. 

16 


Col. Col. 

1 8 

$ SNUMB 

$ IDENT 

$ OPTION 

(Program deck) 

$ EXECUTE 

$ LIMITS 

$ SYSOUT 

$ TAPE9 

(Data cards) 

$ ENDJOB 


Figure A-12. - Tpdmp program deck setup. 


Col. 

Col. 

Col. 

1 

8 

16 


' 

$ 

SNUMB 


$ 

IDENT 

112320, EASE 

$ 

MSGl 

1, PLEASE MOUNT DISC PACK RSRAl 

$ 

USERID 

RSRATEST$XXXX 

$ 

OPTION 

FORTRAN 

(Program deck) 


$ 

EXECUTE 


$ 

LIMITS 

08,16K,,1K 

$ 

PRMFL 

07,R,R,RSRATESTSXXXX/FLTA/PCKA/TBLFL 

$ 

ENDJOB 



Figure A-13. - Table print program deck setup. 


111230, EASE 
FORTRAN 


25,16K,,10K 

06 

01, X1D,, NNNN ,, INPUT-TAPE 
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Col. 

Col. 

Col. 

1 

8 

16 

$ 

SNUMB 


$ 

I DENT 

112320, EASE 

$ 

MSGl 

1, PLEASE MOUNT DISC PACK RSRAl 

$ 

USERID 

RSRATEST$XXXX 

$ 

(Setup routii 
$ 

OPTION 

le program deck) 
EXECUTE 

FORTRAN 

$ 

LIMITS 

08,19K,,2K 

$ 

SYSOUT 

08 

$ 

PRMFL 

07 , R/Q , R , RSRATESTSXXXX/ FLTA/PCKA/TBLFL 

$ 

(Data cards) 

FILE 

01,AIR,3R 

$ OPTION 

(Scan routine program deck) 
$ EXECUTE 

FORTRAN 

$ 

LIMITS 

50,24K,,2K 

$ 

TAPED 

03,X1D,,NNNN 

$ 

PRMFL 

07 , R/W , R , RSRATESTSXXXX/ FLTA/ PCKA/TBLFL 

$ 

PRMFL 

09,R/W,R,RSRATEST$XXXX/FLTA/PCKA/STATS 

$ 

PRMFL 

11,R/W,R,RSRATEST$XXXX/FLTA/PCKA/PASS1 

$ 

PRMFL 

12,R/W,R,RSRATEST$XXXX/FLTA/PCKA/PASS2 

$ 

PRMFL 

13, R/W, R, RSRATESTSXXXX/ FLTA/PCKA/PASS3 

$ 

PRMFL 

14 , R/W , R , RSRATESTSXXXX/ FLTA/PCKA/ PASS4 

$ 

PRMFL 

15 , R/W , R , RSRATESTSXXXX/ FLTA/PCKA/ PASS5 

$ 

PRMFL 

16 , R/W , R , RSRATESTSXXXX/ FLTA/PCKA/ PASS6 

$ 

PRMFL 

17 , R/W , R , RSRATESTSXXXX/ FLTA/PCKA/ PASS7 

$ 

PRMFL 

18 . R/W . R , RSRATESTSXXXX/ FLTA/ PCKA/PASS8 

$ 

PRMFL 

19,R/W,R,RSRATEST$XXXX/FLTA/PCKA/PASS9 

$ 

PRMFL 

20,R/W,R,RSRATESTSXXXX/FLTA/PCKA/PASS10 

$ 

PRMFL 

21,R/W,R,RSRATESTSXXXX/FLTA/PCKA/PASS11 

$ 

(Data cards) 

PRMFL 

22,R/W,R,RSRATESTSXXXX/FLTA/PCKA/PASS12 

$ 

(Abtask routi 
$ 

OPTION 

ine program deck) 
EXECUTE 

FORTRAN 

$ 

LIMITS 

10,16K,2K 

$ 

PRMFL 

07 , R/W , R , RSRATESTSXXXX/ FLTA/PCKA/TBLFL 

$ 

***E0F 

ENDJOB 



Figure A-14. - Deck setup to execute setup, scan, and abtask. 
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APPENDIX B 
TELEVENT II 


Real Time Digital Tape Format Description 

ANSI/IBM Conpatible 
Handler : 9 track 

Density: 800 bpi 

Parity : Odd 

Computer Word Size: 16 bits (msb = bit #16; Isb = #1) 

Three types of records are recorded: (1) -Header Record; (2) -Data Description Record; 

(3) -Data Record. 

Header Record 
Record Size: 45 words 

The header record contains alphanumeric information in EBCDIC and is identified by the 
first word being equal to zero. The information contained in the header record is 
obtained during the primary module setup of each data link. One header record is 
generated for each header card encountered. 


Word 

Contents 

1 

000000 

2 

Number of words/record (45) 

3-4 

4 char, link ID in EBCDIC 

5 

Reel Sequence Number 

6-45 

80 EBCDIC alphanumeric characters 

Data Description Record 

Record Size: 10 words 

The data description record contains the information necessary to describe the data 

records for a specific link, format, and source. This type of record is identified by 

the first word containing a -1 in 2's complement form (177777g) . One data description 

record is present 

for each type of data record recorded. 

Word 

Contents 

1 

-1 (2's conplement) 

2 

Number of words/record (10) 

3-4 

4 char, link ID in EBCDIC 

5 bits 16-13 

Zero 

bits 12-11 

Source ID 


0 - Analog tape 


1 - PCM Simulator 


2 - Manual 

bits 10-5 

6 least significant bits of first EDCDIC char, of format ID. (alpha) 
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Contents 


Word 
bits 4-1 

6 bit 16 

bits 15-8 
bits 7-5 


bits 4-1 

7 

8 

9 

10 


4 least significant bits of second EBCDIC character of format ID. 
(numeric) 

= 0 for "Software Merged" time 
= 1 for "Hardware Merged" time 
Zero 

Time identification bits* 

= 0 - No time is recorded 

< 4 - Number of "Normal" time words recorded (T ) 

n 

> 4 - Bits 6 and 5 indicate the number of "Merged" time words 
recorded (T ) 

= 4 - Time is recorded in "Both" mode. 

Handler number 

Number of frames/physical record. (F) 

Number of words/frame. (W) 

Number of sync words recorded for PCM data links. (S) 

2 EBCDIC blanks . 


Data Record 

Record size: Variable 

Data records are identified by the first word being greater than zero. 
The record size can be calculated by; 

B = FCDn + S + lV)+Tn+5 
where ; 

B = Physical record size 
F = Number of frames/physical record 
W = Number of words/frame 
S = Number of sync words/frame (PCM only) 

Tn = Number of "normal" time words recorded 


Tta = Number of "merged" time words recorded 
F, W, S, Tn and TM are obtained from the Data Description Record for the specified 
source, link, and format. 

The format of all data records is as follows : 


Word 


■> 


I 

[: 


Contents 

Same as word 5 of corresponding Data Description Record 
Number of words /physical record (B) 

4 char, link ID in EBCDIC 

_Block count of data records for this source, link, and format. 
Real time digital data including any time words 
and frame sync words 
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Time Recording Modes 

The system has 3 words of time that can be recorded in a variety of ways. The format of 
these 3 time words is as follows : 




A. Normal Time 

When Normal Time is indicated in bits 7-5 of word 6 of the corresponding Data Description 
Record, only 1 time tag is supplied for the entire physical record irrespective of the 
number of frames contained therein. The time tag represents the GMT of when the last 
data word of the buffer was received. The indicated number of Normal Time words are 
placed at the end of the physical record with the least significant time word being 
recorded first. 

Tn Time Words Recorded 

1 1 

2 1 , 2 

3 1, 2, 3 

B. Merged Time 

When bits 7-5 of word 6 of the corresponding Data Description Record indicated 1, 2, or 
3 Merged Time words are being recorded, each frame of data within the physical record is 
time tagged with TM time words as follows : 

Tm Time Words Recorded 

1 1 

2 1 , 2 

3 1, 2, 3 
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The least significant time word is recorded first in each group of time words. 

Merged Time can be obtained via either hardware or software as indicated in bit 16 of 
word 6 of the corresponding Data Description Record. For Hardware Merged time, Tm time 
words are recorded for each frame immediately following the last word of each frame or 
immediately folloiving the last sync word of each frame if any sync words are present. 
(Sync words appear only Adth PCM data where the sync is not being stripped) . 


For SoftAvare Merged time, Tm number of time words are recorded for each frame with all 
of the time words for all of the frames in a physical record appearing at the end of the 
buffer beginning immediately after the last word (or sync Avord) of the last frame. 

The time tagging for PQl data corresponds to the last bit of the sync pattern. For the 
A/D link (AM5) , the time tag is obtained after the last vrord of the frame has been 
sampled. 

C. Both 

When bits 7-5 of word 6 of the corresponding Data Description Record = IOO 2 , time is 
recorded in Adiat is referred to as the Both mode. In this mode, 3 words of Normal Time 
are recorded at the end of the buffer along with 1 word of Merged Time. The time 
tagging for the two types of time are the same as those previously described. 

Frame Sync Pattern 

When data from one of the PCM links is being digitized, the operator can request to "strip" 
the frame sync pattern. Under this condition, no sync words appear on the digital tape 
and word 9 of the corresponding Data Description Record = 0. When the frame sync pattern 
is not being stripped, (S) nAxnber of sync words as indicated in Avord 9 of the corresponding 
Data Description Record appear after the last Avord of each frame. The number of Avords/ 
frame (W) does not include PCM sync pattern words. 
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APPENDIX C 
Derived Parameters 


There are certain elements of aircraft performance that cannot be directly instru- 
mented but are functions of one or more instrumented elements of the aircraft. Such 
elements cannot be processed directly but must be derived based upon their defined 
algorithms. These elements are processed through the routine "DPTASK" for their point 
by point derivations as well as the calculation of their statistics. 

This appendix lists the parameters that are currently derived through "DPTASK" 
along with their algorithms. Figure C-1 contains the list of flight constants used in 
the equations. Figure C-2 lists the definition of the input variables used and Figure 
C-3 lists the definition of the variables being derived. 

The algorithms currently defined in "DPTASK" are as follows: 

= 1479. K^ (C 1) 


where 


idiere 


where 


and 


where 

and 


and 


K^ =)| (1 + .06805 

Vqas “ Linear Interpolation Table Lookup f (Vj’p) 

^EI " ^CAS^ ^ V DELTA) (-i-) 

^1 


DELTA = fl.O - .000006875H1 
144. V 


^2 = 


V(1* ^ 


'IP 


2116.2 DELTA- 


5.256 
285T 
0 -1. 


. ITAT - .00013177 KPRCVe; 


DENS 


2116.2 DELTA - .378277 PRESSV 
3089.7 (ITAT + 273.16) 


PRESSV = RELHUM [2.685 + .013232 (ITAT + 17.78) 


2.245 


^T '^CAS' 


p = .0023769 
0 

2116.2 DELTA - .378277 PRESSV^^ 

P 3089.7 (FAT + 273.16) 

PRESSVj^ = RELHUM [2.685 + 0.13232 (FAT + 17.78)^'^'^^] 
TAT = FAT + .000131714 


(C 2) 
(C 3) 

(C 4) 

(C 5) 
(C 6) 
CC 7) 

(C 8) 

(C 9) 
(CIO) 

(Cll) 

(C12) 

(C13) 

(C14) 
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.235 

H - 1* - 
Hd - 

.000006875 

(CIS) 

.p _ C2 tt) CR) CNR) mC) 
(60) (100) 

(C16) 

(2tt) (R.) (NR) (MRC) (GT) 
nTR - ^ 

(60) (100) 

(C17) 

1.6889 

y = 

fiR 

(C18) 

nR + 1.6889 V™ 

MACH^ = 

65.7689 yp^.p ^ 273.16 

(C19) 

(NF )(Q )(HPC) 

SHP, - 

10000. 

(C20) 

(NF.) (Q.) (HPC) 
SHP 2 - ^ ^ 

(C21) 


10000. 


^^TOTAL ^^1 ^^2 

(C22) 

^ 550 HPT 

^^ENG TOT n2.„D^3 

p TT R (nR) 

(C23) 

(NR) 0®Q) (MRC) 

^MR “ 

^ (5252) (100) 

(C24) 

550 HP^ 
m - MR 

^^MAIN „2 „.3 

p IT R (J^ R) 

(C25) 

(NR) (TRQ) (GTS) 
^TR (5252) (100) 

(C26) 

550 HP„. 

CP - 

™ Pur2(.R)3 

(C27) 

®S "" ®MR ®TR 

(C28) 

550 HP„ 

CP - - ^ 

^^TOT „2,„ p.3 

p IT R (n R) 

(C29) 

YAW = HEAD - HEADp 

(C30) 


HEADj^ is the value of the first sanple in data burst. 

= ISOLB + .2588 (LIFID - LIFTA) (C31) 

Fy + ISOLA - ISOLC + .2588 (LIFTB - LIFTC) (C32) 

F^ = .9659 (LIFTA + LIFTB + LIFTC + LIFTD) (C33) 

= 57.88 (ISOLA - ISOLC) - 31.98 (LIFTB + LIFTC) (C34) 

-53. ISOLB + 32.639 LIFTA - 2.656 LIFTB - 37.9515 LIFTD - 2.656 LIFTC (C35) 

= '17.75 ISOIJV - 23.25 ISOLC + .7118 LIFTB - LIFTC) - 82. QLINK (C36) 

AR = -.0000024A^ + .0008353A^ - .2677A +114.5 (C37) 



SYMBOL 


DEFINITION 


VALUE 


KPR 

RELHUM 

HPC 

MRC 

R 

CT 

GTS 


Temperature probe recovery factor 

Relative humidity 

T58 Engine chaff horsepower @ 100% 

Main rotor RPM @ 100% NR 
Main rotor radius ft 
Tail rotor radius ft 

Gear ratio between tail rotor and main rotor 
Tail rotor shaft RPM @ 100% NR 


.9 

0 . 

1215.69 

203. 

31. 

5.3 

6.123 

3030. 


Figure C-1. Flight Constants for Derived Parameters 


SYMBOL 

MNEMONIC 

DEFINITION 

ITAT 

ITATBOOM 

Indicated total air tenperature (BOOM) (deg C) 

^IP 

VIPBOai 

Indicated airspeed (BOOM) (PSID) 

H 

HBOai 

Pressure altitude (BOOM) (ft) 

HEAD 

HEAD180 

Compass heading (+ 180 deg) 

Qi 

NOIQPCT 

No. 1 engine torque % 

^2 

NO20PCT 

No. 2 engine torque % 

NF^ 

NOINFPCT 

No. 1 engine power turbine speed % 

N^2 

N02NFPCT 

No. 2 engine power turbine speed % 

MRQ 

MRQl 

Main rotor shaft torque ft- lb 

TRQ 

TRQ 

Tail rotor shaft torque ft-lb 

NR 

NR 

Main rotor speed % 

LIFTA 

MRLIFTA 

Main rotor LIFT A (forward) (lb) 

LIFTS 

MRLIFTB 

Main rotor LIFT B (right hand) (lb) 

LIFTC 

MRLIFTC 

Main rotor LIFT C (left hand) (lb) 

LIFTD 

MRLIFTD 

Main rotor LIFT D (aft) (lb) 

ISOLA 

ISAFAPR 

Forward lefthand latitude ISOLATOR 

ISOLB 

ISOFAPR 

Forward longitude ISOLATOR 

ISOLC 

ISAFBPR 

Aft right hand latitude ISOLATOR 

QLINK 

XMSNSGT 

Transit torque link 

A 

AILPOSR 

Right aileron position 


Figure C-2. Input Variables for Derived Parameters 
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SYMBOL 


SYMBOL 

mnemojic 

DEFINITION 

ViT 

VITBOOM 

True instrumented indicated airspeed (BOCM) (KNOTS) 

^CAS 

VCASBCm 

Calibrated airspeed (BOOM) (KNOTS) 


wiBcm 

Equivalent airspeed (BOdl) (KNOTS) 

FAT 

FATBOOi 

Free air temperature (BOOM) (DEGREES C) 

Vt 

VTBOai 

True airspeed (BOCM) (KNOTS) 

TAT 

TATBOai 

Total air temperature (BOOM) (DEGREES C) 

«D 

HDBOOM 

Density altitude (BOOM) (FEET) 


dCGAR 

Main rotor tip speed (£t/sec) 

^TR 

0^^EGATR 

Tail rotor tip speed (ft/sec) 

y 

MU 

Main rotor tip speed ratio 

MACH. 

MACHA 

Advanced blade tip mach number 

SHP^ 

NOlSiP 

No. 1 engine shaft horsepower 

SHP^ 

N02SHP 

No. 2 engine shaft horsepower 

HP 

TOTAL 

HPT 

Total engine horsepower 

fP 

^ENG TOT 

CPTE 

Total engine power coefficient 

®MR 

HPMR 

Main rotor horsepower 

cPmain 

CPM 

Main rotor power coefficient 

^TR 

HPTR 

Tail rotor horsepower 

®TAIL 

CPTAIL 

Tail rotor power coefficient 

»Ps 

HPS 

Total strain gage power 

CPtott 

CPT 

Total power coefficient 

YAW 

YAWFTRM 

Yaw attitude (DEGREE) 

Fx 

FX 

Main rotor longitudinal force (lb) 


FY 

Main rotor latidudinal force (lb) 


FZ 

Main rotor vertical force (lb) 


MX 

Main rotor roll moment (in-lb) 

m. 

MY 

Main rotor pitch moment (in-lb) 


MZ 

Main rotor yaw moment (in-lb) 

AR 

AILPOSP 

Right aileron position (%) 


Figure C-3. Derived Parameter Variable Definitions 
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APPENDIX D 
Program Flowcharts 


This appendix describes the programming logic used in each independent software task 
of the EASE system and provides a basic understanding of the methods used to develop each 
task in the overall operational requirements. A collection of the flowcharts and a list- 
ing of each subroutine documentation cards are included here. 

A hierarchy chart of each program used in the EASE system precedes the set of sub- 
routine documentation and flowcharts applicable to each respective program. 
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*«»*«»*****»«*»***<» |uiA IN SETUP driver*********************************** 


PROGRAM identification 


PROGRAM NAME MAIN SETUP DRIVER 

PROGRAM NUMBER 112320 

AUTHOR TERPY D. SOMMERS 

COMPUTER HW-625/635 

MEMORY ALL FILES OPEN (20K) 

PERIPHERALS CARD REAOERtPRINTER 

LANGUAGE HW 6000 FORTRAN/FORTY 


PURPOSE 

TO CALL APPROPRIATE TASK TO BE GENERATED. 

METHOD 

CHECK INPUT CARD FOR CORRECT TASK NAME AND OPTION NAME 
AND CALL APPROPRIATE TASK. 

INPUT/OUTPUT 

CCOOE - INPUT AND OUTPUT ARGUMENT CONTAINING CARO CODE 
CARO - INPUT AND OUTPUT ARGUMENT CONTAINING CHARACTER INFORMATION 
TNAME - INPUT ARGUMENT CONTAINING TASK NAME 
OPT - INPUT AND OUTPUT ARGUMENT CONTAINING OPTION NAME 
NOOP - INPUT AND OUTPUT ARGUMENT CONTAINING NUMBER OF 
ERRORS counted FROM BAD INPUTS. 

JCDCNT - INPUT AND OUTPUT ARGUMENT CONTAINING TOTAL NUMBER OF 
CARDS INPUT 

CALLING SEQUENCE 

CALL SETUP 

COMMON AREAS 

D.ATIN - CAROtOPT* TNAME»CCOOE»NOOP* JCDCNT 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARO FORMATS 
AND TABLE FILE FORMATS OR FOR ANY OTHER SPECIFIC INFORMATION. 
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ROUTINE SETUPO****^'’*^****^*’***^^*^***^**************^ 


PROGRAM IDENTIFICATION 


PROGRAM NAME SUBROUTINE SETUP 

PROGRAM NUMBER 112320 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW-625/635 

MEMORY 

PERIPHERALS CARO READER»PRINTER»DISC*TAPE 

LANGUAGE HW 6000 FORTRAN/FORTY 


PURPOSE 

TO INITIALIZE OR UPDATE A TABLE FILE WHICH WILL 
BE USED BY OTHER RSRA ROUTINES 


METHOD 

CHECK OPTION FOR "INITIALIZE" OR "UPDATE" AND EITHER 
ZERO OLD tables OR READ CURRENT TABLES FROM DISC 
INTO MEMORY. READ A CARD AND CHECK CARD CODE TO 
DETERMINE ANY OR ALL TABLE ROUTINES TO BE USED. 

WRITE NEW OR UPDATED TABLES TO DISC FILE 07 AND 
RETURN TO DRIVER ROUTINE. TABLES WILL ONLY BE SAVED IF 
NOOP VALUE IS 0. 

INPUT/OUTPUT 

CCODE - INPUT AND OUTPUT ARGUMENT CONTAINING CARD CODE 
CARD - INPUT AND OUTPUT ARGUMENT CONTAINING CHARACTER INFORMATION 
TNAME - INPUT ARGUMENT CONTAINING TASK NAME 
OPT “ INPUT AND OUTPUT ARGUMENT CONTAINING OPTION NAME 
NOOP - INPUT AND OUTPUT ARGUMENT CONTAINING NUMBER OF 
ERRORS COUNTED FROM BAD INPUTS. 

JCDCNT - INPUT AND OUTPUT ARGUMENT CONTAINING TOTAL NUMBER OF 
CARDS INPUT 

THEAD - INPUT OP OUTPUT ARGUMENT CONTAINING HEADER TABLE 

information 

TPASS - INPUT OR OUTPUT ARGUMENT CONTAINING PASS TABLE 

information 

TSENSE - INPUT OR OUTPUT ARGUMENT CONTAINING SENSOR TABLE 

information 

TEVENT - INPUT OR OUTPUT ARGUMENT CONTAINING EVENT TABLE 
INFORMATION 

ICALNO - INPUT OR OUTPUT ARGUMENT CONTAINING CALIBRATION 
TABLE INFORMATION 

SCTAB - INPUT OR OUTPUT ARGUMENT CONTAINING SENSOR TABLE 
INFORMATION FOR SCRATCH TAPE FILE 01 
TABREC - ARGUMENT CONTAINING A TABLE RECORD 600 WORDS/REC 
NTBL - ARGUMENT CONTAINING NAME OF TABLE TO BE 
INITIALIZED OR UPDATED 
FILE 07 - RANDOM DISC FILE FOR TABLES 

FILE 01 - RANDOM SCRATCH TAPE FILE FOR SENSOR TABLES ONLY 

520 WORDS/REC. 
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CALLING SEQUENCE 


CALL HEAOIN 
CALL PASSIN 
CALL EVENIN 
CALL CALIN 

COMMON AREAS 

DATIN - CARD»OPTtTNAME.CCODE*NOOP» JCDCNT 
TABLl - THEAD 
TABLE - TPASS 
TABL3 - TSENSE 
TABL4 - TEVENT 
TABL5 - ICALNO 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARO FORMATS 
AND TABLE FILE FORMATS OR FOR ANY OTHER SPECIFIC INFORMATION, 
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*<nnnnnnt«<nnnMnnnwnnt SUBROUTINE 


PROGRAM IDENTIFICATION 


PROGRAM NAME SUBROUTINE HEAOIN 

PROGRAM NUMBER 11P320 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW-625/635 

MEMORY 

PERIPHERALS CARO READER*PRINTER 

LANGUAGE HW 6000 FORTRAN/FORTY 


PURPOSE 

TO BUILD OR UPDATE HEADER TABLE 
METHOD 

CHECK HEADER CARD NUMBER AND DECODE ACCORDINGLY. EDIT 
CARD PARAMETERS AND STORE INFORMATION IN HEADER COMMON 
AREA TO BE WRITTEN IN SETUP ROUTINE. 

INPUT/OUTPUT 

CCODE - INPUT AND OUTPUT ARGUMENT CONTAINING CARD CODE 
CARO - INPUT AND OUTPUT ARGUMENT CONTAINING CHARACTER INFORMATION 
NOOP - INPUT AND OUTPUT ARGUMENT CONTAINING NUMBER OF 
ERRORS COUNTED FROM BAD INPUTS. 

JCDCNT - INPUT AND OUTPUT ARGUMENT CONTAINING TOTAL NUMBER OF 
CARDS INPUT 

THEAO - HEADER TABLE NAME OR ARRAY 
ICDCT - COUNTER FOR NUMBER OF HEADER CARDS READ 
IHCDNO - INPUT ARGUMENT CONTAINING HEADER CARD NUMBER 
HEADER CARD NO. 1 

MAXPAS - MAXIMUM NUMBER OF PASSES DURING FLIGHT 
MEVENT - MAXIMUM NUMBER OF EVENTS DURING FLIGHT 
MBURST - MAXIMUM NUMBER OF BURSTS FOR 6130 TAPE DURING FLIGHT 
FTIME - BEGINNING TIME OF FLIGHT 
HEADER CARD NO. 2 

FLIGHT - FLIGHT INFORMATION 
DATE - DATE OF FLIGHT (DDMMYY) 

TAPENO - TAPE NUMBER OF 6130 TAPE 
AIRCRl + AIRCR2 - AIRCRAFT NAME 
PILOTl + PIL0T2 - PILOT NAME 
COPILl ♦ C0PIL2 - COPILOT NAME 
OBSERl ♦ 0BSER2 - OBSERVER NAME 
HEADER CARD NO. 3 

FTP - engineering TEST PLAN 

ESGW - ENGINEERING GROSS WEIGHT 

FSCG - ENGINEERING CENTER GRAVITY 

KPR(O.R) - airspeed PROBE RECOVERY FACTOR 

HPC(1215.6R) - T-58 ENGINE CHAFF(HP AT 100 PERCENT) 

MRC(203) - MAIN ROTOR (RPM AT 100 PERCENT) 

ROD - MAIN ROTOR RAOIUS(FEET) 
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HEADER CARD NO. 4 

RT(5.3) - TAIL ROTOR RAOIUS(FEET) 

GT(6.123) - TAIL ROTOR TO MAIN ROTOR(RPM RATIO) 

6TS(3030> - TAIL ROTOR SHAFT(RPM) 

RELHU(O) - RELATIVE HUMIDITY (UNUSED) 

FHBOOM - UNUSED 

COMMON AREAS 

DATIN - CARD»OPT»TNAME»CCODE»NOOP* JCDCNT 
TABLl - THEAD 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS 
AND TABLE FILE FORMATS OR FOR ANY OTHER SPECIFIC INFORMATION, 
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3QQ 


DECODE CARD 


MAXPAS.MEVENT, 

^ YES . 

MBURST, IFHR, 


IFMIN, FFSEC 




NOOP= 

NOOP+1 


PRINT ERROR 
MESSAGE 



CONVERT TIME 
TO TOTAL 
SECONDS 


STORE VALUES 
IN THEAD 
CHEADER TABLE) 



PRINT ERROR 




▼ 

MESSAGE 

w 



NOOP^ 

^ 


r 


NOOP+1 

/ 

^3^wrsi\. 


1 ^ 



400 


500 


DECODE CARD 

ETP,ESGW,ESCG 

KPR,HPG,MRC,R 


STORE VALUES 
IN THEAD 
(HEADER TABLE) 



600 


PRINT error 
MESSAGE 



DECODE CARD 
RT.GT, GTS 
RELHU.FHBOOM 






STORE VALUE 

C RETURN ] 


IN THEAD 
(HEADER TABLE) 

7 

00 



STORE VALUES 
IN THEAD 
(HEADER TABLE) 




z 

PRINT ERROR 
MESSAGE 





GO TO 
100 


800 



PRINT 
MESSAGE 
"END OF FI 





RETURN 
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«<hh><hhhhhhhhhhhhhhh>SUBROUTINE 


PROGRAM IDENTIFICATION 


PROGRAM NAME SUBROUTINE PASSIN 

PROGRAM NUMBER 11P320 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW-625/635 

MEMORY 

PERIPHERALS CARD READER*PRINTER»TAPE 

LANGUAGE HW 6000 FORTRAN/FORTY 


PURPOSE 

TO BUILD OR UPDATE PASS TABLES AND SENSOR TABLES AND 
TO SEARCH TABLES FOR DUPLICATION OF SENSOR NAME* 

PREPROCESSING CODE AND SAMPLE RATE 

METHOD 

DECODE information IN PASS CARD AND STORE IN PASS TABLES, 

CHECK FOR SENSOR CAROS AND DECODE. EDIT CARD PARAMETERS 
FOR CORRECT INFORMATION. STORE VALUES IN SENSOR TABLES. 

WRITE SCRATCH FILE 01. READ SCRATCH FILE AND SEARCH 
FOR DUPLICATION OF SENSOR NAME* PREPROCESSING CODE ANO 
SAMPLE RATE. 

INPUT/OUTPUT 

CCODE - INPUT AND OUTPUT ARGUMENT CONTAINING CARD CODE 
CARD - INPUT AND OUTPUT ARGUMENT CONTAINING CHARACTER INFORMATION 
NOOP - INPUT AND OUTPUT ARGUMENT CONTAINING NUMBER OF 
ERRORS COUNTED FROM BAD INPUTS. 

JCOCNT - INPUT AND OUTPUT ARGUMENT CONTAINING TOTAL NUMBER OF 
CARDS INPUT 
IPSNO - PASS NUMBER 

IRDIN - INTEGRAL VALUE OF 6130 TAPE SAMPLE RATE 
ROIN - 6130 SAMPLE RATE TYPE(X,M*T . ) 

IRDATA - INTEGRAL VALUE OF DATA FILE SAMPLE RATE 
ROATA - DATA FILE SAMPLE RATE TYPE(X*M*T* ) 

ISTATC - STATUS CODE FOR DATA AVAILABILITY 

0 = NOT AVAILABLE 

1 = AVAILABLE 

2 = A8 TASK RUN 

3 = DERIVED PARAMETER PASS 
MAXPAR - ACTUAL NUMBER OF PARAMETERS FOR PASS 
TPASS “ PASS TABLE ARRAY 

SRDIN - COMBINED INTEGRAL VALUE AND TYPE FOR SAMPLE RATE 
SPDATA - COMBINED INTEGRAL VALUE AND TYPE FOR SAMPLE RATE 
SCTAB - SENSOR TABLE ARRAY FOR SCRATCH FILE 
TSENSE - SENSOR TABLE ARRAY 

IDRATE - INCREMENT VALUE OF 6130 SAMPLE RATE 
SNCl - FIRST CHARACTER OF SENSOR NAME 
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ST CARO 

SNAMl ♦ SNAM2 - SENSOR NAME 
PPC - PREPROCESSING CODE 
V = VIBRATORY 

S = STEADY 

D = DIRECT 

IPARIN - 6130 TAPE PARAMETER LOCATION 

IPARDF - DATA FILE PARAMETER LOCATION 

ITRACK - 6130 TAPE TRACK NUMBER 
ICHAN - 6130 TAPE CHANNEL NUMBER 
CALTYP - CALIBRATION T YPE ( Z » X » P » 1 . 2 ) 

EUCVl - FACTORY CAL "A" TERM 
EUCV2 - FACTORY CAL "B" TERM 
FILNO - NOT USED 
CONLEV - CONCERN LEVEL VALUE 

COMMON AREAS 

DATIN - CARD»OPT»TNAME»CCODE*NOOP* JCDCNT 
TABL2 - TPASS 
TABL3 - TSENSE 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS 
AND TABLE FILE FORMATS OR FOR ANY OTHER SPECIFIC INFORMATION. 

<nnnm"innt * 
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500 



101 











102 







620 
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CONTINUE 








*'tnnnnnMMHHnnnnnnnnn»5U0ROUTINE 


PROGRAM IDENTIFICATION 

PROGRAM NAME SUBROUTINE CALIN 

PROGRAM NUMBER 112320 

AUTHOR TERRY D, SOMMERS 

COMPUTER HW-625/635 

MEMORY 

PERIPHERALS CARD READER ♦ PR I MTER , TAPE 

LANGUAGE HW 6000 FORTRAN/FORTY 

PURPOSE 

TO BUILD OR UPDATE CALIBRATION TABLES. TO SCAN SENSOR 
TABLES FOR MATCH OF SFNSOR NAMES. 

METHOD 

CHECK CARD FOR CALIBRATION TYPE* DECODE CARD AND EDIT 
PARAMETERS. SCAN SENSOR TABLES FOR MATCH OF SENSOR NAMES 
SET CAL POINTER TO CORRECT VALUE. STORE CALIBRATION TABLE 
IN ARRAY TO BE WRITTEN IN SETUP ROUTINE. WRITE CORRECTED 
SENSOR TABLES ON SCRATCH FILE 01. 

INPUT/OUTPUT 

CCODE - INPUT AND OUTPUT ARGUMENT CONTAINING CARD CODE 
CARD - INPUT AND OUTPUT ARGUMENT CONTAINING CHARACTER INFORMATION 
NOOP - INPUT AND OUTPUT ARGUMENT CONTAINING NUMBER OF 
ERRORS COUNTED FROM BAD INPUTS. 

JCDCNT - INPUT AND OUTPUT ARGUMENT CONTAINING TOTAL NUMBER OF 
CARDS INPUT 
CARDS INPUT 

LTAB - COUNTER FOR INDEXING 

ICALP - COUNTER FOR INDEXING 

ICALO - CALIBRATION POINTER 0 

ICALl - CALIBRATION POINTER 1 

ICALNO - CALIBRATION TABLE ARRAY 

NAMES - SENSOR NAME 

ICE - PRE OR POST CAL EVENT NUMBER 

SENTAB - SENSOR TABLE ARRAY (SCRATCH FILE 01) 

CALTC - CALIBRATION TYPE 

COMMON AREAS 

OATIN - CARD*OPT*TNAME*CCODE*NOOP* JCDCNT 
TABLI - THEAD 
TABL2 - TPASS 
TABLE - ICALNO 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS 
AND TABLF FILE FORMATS OR FOR ANY OTHER SPECIFIC INFORMATION. 
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81 


00 



YES 


iO TO 
300 



00 TO 
300 
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**<nnnM>*«<MHnnnnnnnntsUBROUTINE EVENIN************^^****************^**** 


PROGRAM IDENTIFICATION 


PROGRAM NAME SUBROUTINE EVENIN 

PROGRAM NUMBER 11P320 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW-625/635 

MEMORY 

PERIPHERALS CARD READER*PRINTEP 

LANGUAGE HW 6000 FORTRAN/FORTY 


PURPOSE 

TO BUILD OR UPDATE EVENT TABLES 
METHOD 

READ EVENT CARDS. DECODE AND EDIT PARAMETERS FOR ERRORS. 

STORE VALUES IN EVENT TABLE TO BE WRITTEN IN SETUP ROUTINE. 

INPUT/OUTPUT 

CCODE - INPUT AND OUTPUT ARGUMENT CONTAINING CARD CODE 
CARD - INPUT AND OUTPUT ARGUMENT CONTAINING CHARACTER INFORMATION 
NOOP - INPUT AND OUTPUT ARGUMENT CONTAINING NUMBER OF 
ERRORS counted FROM BAD INPUTS. 

JCDCNT - INPUT AND OUTPUT ARGUMENT CONTAINING TOTAL NUMBER OF 
CARDS INPUT 

ET CARO 

NEVENT - EVENT NUMBER 

EVENTl ♦ EVENT2 ♦ EVENT3 ♦ EVENT4 - EVENT NAME 
ETYPE - EVENT TYPE ( Z . R » X . T . S , I ) 

ETIME - TIME OF EVENT 
TEVENT - EVENT TABLE ARRAY 

COMMON AREAS 

DATIN - CARD.OPT.TNAME. CCODE. NOOP. JCDCNT 
TABL4 - TEVENT 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS 
AND TABLE FILE FORMATS OR FOR ANY OTHER SPECIFIC INFORMATION, 


111 



100 



200 
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PRINT ERROR 
MESSAGE 




CONVERT TIME TO 
TOTAL SECOND 
(ETIME) 


STORE VALUES 
IN EVENT TABLE 
TEVENT (6*CNEVENTl 
-D+N) 



800 


PRINT 
MESSAGE 
jmo OF FILE 
sEVENIN"! 
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*Progratn Modules SFRAME, HFRAME, GFRAME documentation in NASA, WFC Program Library 

HIERARCHY CHART for SCAN PROGRAM 
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»*«hmhhh»SCAN - PROGRAM NUMBER 1.1.2326 


******«NASA wallops version of 08/01/77 


»**««**LaNGUAGE - FORTRAN IV 


«»<hhmh»MaCHINE - HW 625/635 


*«*<hh»*PROGRAM author - JEANETTE WESSELLS 


<hhhhhm»PURPOSE - 

THIS IS THE MAIN PROGRAM WHICH READS PCM AND FM DIGITIZED 
INPUT data in televent format. COMPUTES BASIC STATISTICS. AND 
STORES DATA AND STATISTICS IN RANDOM FILES ACCEPTABLE TO 
OTHER EASE PROGRAMS. 


****»«*METH0D - 

THIS PROGRAM ACCEPTS EITHER PCM OR FM TAPES CONTAINING DATA 
RECORDED BY RSRA AIRCRAFT FLIGHT. 

THE DIGITIZATION OF PCM DATA TAPE IS BY STANDARD PROCFEOURES. 
FM DATA IS DIGITIZED BY USE OF A PEAK - STRESS CONVERTER 
WHICH TAKES A CHANNEL OF DATA AND. DEPENDING ON THE SPECIFIED 
SAMPLING RATE. OUTPUTS A CHANNEL OF PEAK VALUES AND A CHANNEL 
OF VALLEY VALUES WITHIN THAT SAMPLING RATE. THESE TWO 
CHANNELS ARE COMBINED TO GIVE VIBRATORY AND STEADY COMPONENTS 
OF THE ORIGINAL DATA. THE BASIC STATISTICS ARE COMPUTED FOR 
THESE COMPONENTS. 

PCM DATA IS GROUPED ACCORDING TO PASSES. A PASS IS A SET OF 
DATA WITH NO MORE THAN 40 CHANNELS. EACH CHANNEL REPRESENTING 
A SPECIFIC PARAMETER. COVERING THE ENTIRE FLIGHT FOP THESE 
CHANNELS AND SAMPLED AT THE SAME PATE. 

A PASS IS further divided INTO BURSTS REPRESENTING DATA FOR A 
PARTICULAR FLIGHT MANEUVER. DATA BURSTS CAN BE DISTINGUISHED 
BY EITHER RUN TONE SIGNAL OR A GIVEN TIME INTERVAL. NORMAL 
MODE IS BY PUN TONE. CARO INPUT IS REQUIRED WITH BURST NUMBER 
AND START AND STOP TIMES FOR TIME INTERVAL. STATISTICS ARE 
COMPUTED AND STORED FOR EACH CHANNEL OF DATA BY THESE DATA 
BURSTS. 

EACH PASS AND FLIGHT MANEUVER IS DEFINED IN THE SETUP ROUTINE. 
GIVEN THE PASS NUMBER. FILE NUMBER. AND FILE CODE DESIGNATOR. 
SETUP WILL SUPPLY NECCESSARY PARAMETER CONFIGURATION OF THE 
INPUT DATA. 

THE ENTIRE PASS OF DATA IS THEN PROCESSED THROUGH THIS 
ROUTINE. 
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*#**»«»SYSTEMS INPUT FILES 


FILE 03 = INPUT TAPE 

FILE OA = INPUT TAPE» IF MULTI-REEL IS NECCESSARY 

FILE 05 = CARD READER 

FILE 07 = TABLE FILE 

♦*«<hmh*SYSTEMS OUTPUT FILES - 
FILE 06 = PRINTER 

FILE 07 = TABLE FILE 

FILE 09 = STATISTICS FILE 

FILES 11*12, ...31 = PASS DATA FILES 

♦**«***INPUT - 

CARD -78 character CARD IMAGE 

CCODE -2 CHARACTER CARD CODE FOUND IN FIRST 2 COLUMNS OF 

-INPUT CARD — IDENTIFIES INPUT DATA WITHIN "CARD" 

ETIME -BEGINNING TIME (SEC) OF MANEUVER UP TO 100 ENTRIES 

-ARRAY IS EXTRACTED FROM EVENT TABLE 

NPASS -PASS number BEING PROCESSED (CARD INPUT) 

IFC -FILE CODE OF INPUT TAPE (CARD INPUT) 

ITCD -CODE DESIGNATING WHICH TIME WORD TO USE (CARD INPUT) 

-=0,AIRBOURNE TIME 
-=1, GROUND STATION TIME 

IFILNO -LOGICAL FILE WHERE PASS = NPASS TO BE FOUND ON 

-INPUT TAPE (CARO INPUT) 

MBURST -MAXIMUM NUMBER OF DATA BURSTS FOUND ON INPUT TAPE 

-FOR THIS PASS (CARD INPUT) 

JPARIN -WORD NUMBER OF SENSOR DATA WITHIN THE DATA FRAME 

-MAXIMUM 40 WORDS (FROM SENSOR TABLE) 

JPARDF -WORD NUMBER OF SENSOR DATA WITHIN THE DATA FILE 

-FRAME (FROM SENSOR TABLE) 

PPC -PRE-PROCESSING CODE OF SENSOR (FROM SENSOR TABLE) 

LASTFL -COUNTER FOR CURRENT LOGICAL FILE BEING PROCESSED 

TABREC -600-WORD ARRAY OF TABLE DATA READ FROM FILE 07 
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IDATA 

NEVENT 

IBURST 

ICOND 


TO 

TF 

KADDR 

IRETST 

NCOND 

INTRVL 

♦******OUTPUT - 
NPASS 
SRDIN 
SRDATA 
NEVENT 
lADDR 
KADDR 
ETO 
ETF 
NFRM 
NLOS 


-640-WORD RECORD ARRAY FOR DATA IMAGE OF PACKED 
-DATA ON DATA FILE 

-MANEUVER NUMBER 

-BURST NUMBER (CARD INPUT) 

-CODE TO DESIGNATE HOW "IBURST" IS TO BE HANDLED 
-(CARO INPUT) 

-=0*NORMAL CONDITION - BURST INTERVAL DETERMINED 
BY RUN TONE 

-=1*BURST INTERVAL DETERMINED BY RUN TONE IS NOT ' 
TO BE PROCESSED 

-=2*BURST INTERVAL IS DETERMINED BY TIME 

NOTE< TIME VALUES TO AND TF ARE REQUIRED 
-=3*N0 DATA BURST EXISTS ON INPUT TAPE FOR A VALID 
MANEUVER — MUST WRITE A RECORD OF NULLS FOR 
STATISTICS AND INCREMENT NEVENT 

-BEGINNING TIME OF DATA BURST (SEC) (CARO INPUT) 

-ENDING TIME OF DATA BURST (SEC) (CARD INPUT) 

-CURRENT ADDRESS OF DATA FILE RECORD FOR NPASS 

-TAPE status as RETURNED FROM GFRAME 
-10*END OF FILE ON TAPE 

-VALUE FOR ICOND FOR CURRENT BURST = "NBURST" 

-RATIO OF INPUT SAMPLE RATE VS. DATA FILE SAMPLE 
-RATE 


-PASS NUMBER BEING PROCESSED 
-INPUT SAMPLE RATE 
-DATA FILE SAMPLE RATE 
-MANEUVER NUMBER 

-STORED ADDRESS ARRAY OF MANEUVER NUMBER 
-CURRENT ADDRESS OF DATA FILE RECORD FOR NPASS 
-BURST START TIME 
-BURST STOP TIME 

-NUMBER OF FRAMES OF DATA WITHIN BURST 
-NUMBER OF LOSS OF SYNS WITHIN BURST 
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«******RfrsTRICTTONS - 

LIMIT OF 20 PASSES PER FLIGHT 
LIMIT OF 40 PARAMETERS PER PASS 
LIMIT OF 100 MANEUVERS 

INPUT TAPES ARE STANDARD TELEVENT FORMAT (RESTRICTED BY 
GFRAME MODULE) 


**<n»*<n*SU8PROGRAMS REQUIRED - 
HEADER 

SFRAME 

HERAME 

EVCHK 

PCMRD 

GFRAME 

SFRAME 

TMSET 

FMRD 

GFRAME 

EPACK 

STATCL 

WRTRDF 

EPACK 
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COMPUTE TGAP, 
INTRVL SET 
NEVENT=0 
NBURST=0 
KADDR=0 



WRITE EUCVl 
AND EUCV2 FOR 
PPC='P' RECORD 
NPASS+21 






























HEAD HEAOER-INITIALIZE INPUT 6130-TAPE 

«*****<nnn»****«**«*<nnt » subroutine HE ADER<**<k»****o******«*************** 

*»*****NASA wallops version of 08/01/77 

*******LANGUAGE - FORTRAN IV 

**»*«**MACHINE - HW 635/635 

*******PURPOSE - 

INITIALIZE INPUT TAPE AND READ HEADER RECORD 


*******hexhod - 

INITIALIZE TAPE BY CALLING SFRAME AND READ THE HEADER RECORD 
BY CALLING HFRAME. 


***#**»ihput - 

IFCD -FILE CODE OF INPUT TAPE 

IFL -LOGICAL FILE WHERE PASS = NPASS TO BE FOUND ON 

-INPUT TAPE 


***«***OUTPUT - 

headr -header record to be printed 


*»**«**restrictions - 

NONE 


*******SUBPROGRAMS REQUIRED - 
SFRAME 
HFRAME 
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FAZCAL 

FAZCAL***************^********* 


****#*«***<»»»****« NAS A WALLOPS VERSION OF MARCH 15,1978 


«**»**»**«»»#**»**LaN6UAGE - FORTRAN IV 
**«»»******«*«**»»MACHINE - HONEYWELL 635 


*<nn»*#tt*»'innt***'inntpURPOSE - 

THIS ROUTINE PROCESSES PHASE CALIBRATION DATA. 


JROQ - 

THE FM TAPE MUST BE OF STANDARD TELEVENT FORMAT 
BECAUSE DATA IS DECODED BY GFRAME MODULE. 

THE STATUS OF EACH RECORD IS CHECKED FOR POSSIBLE 
PARITY ON READ, AND END OF FILE DESIGNATOR. 

ZERO DEGREE PHASE CALIBRATION IS COMPUTED AND 
STORED IN ARRAY lAVG. 

AVERAGE VALUE FOR ZERO DEGREES IS CALCULATED 
AND STORED IN ARRAY IXO. 

360 DEGREE PHASE CALIBRATION IS COMPUTED AND STORED 
IN ARRAY lAVG. 

AVERAGE VALUE FOR 360 DEGREES IS COMPUTED AND STORED 
IN ARRAY IXl. 

EUCVl AND EUCV2 TERMS ARE COMPUTED AND STORED IN 
ARRAYS EUCVl AND EUCV2. 


JPUT - 

FILE NUMBER 06 
CONSISTS OF - 

- SENSOR NUMBER 

- ZERO DEGREE AVERAGE 
“ 360 DEGREE AVERAGE 

- EUCVl (DEFLECTION IN ENG. UNITS) 
EUCV2 (OFFSET IN ENG. UNITS) 

-IRETST - READ STATUS OF FRAME 

- 1,2, OR 3 GOOD READ 

- 10= END OF file 


*******«*«*»***«*«re;STRICTIONS - FM TAPE MUST RE STANDARD TELEVENT 

FORMAT, 


**o******»*<»******SUBPROGRAMS REQUIRED - GFRAME, HFRAME,SFRAME 
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EVCH EVCHK-CORDINATE EVENTS 

<nt***'»*****fl"»*<nnnnnnn»*SUBROUTINE EVCHK**'*****'**''*<^*****’*'''"''’*****'*********'* 
*««*<h»*NASA wallops version of 08/01/77 
*tt*««**LANGUAGE - FORTRAN IV 
*******MACHINE - HW 625/635 


*****«*PURPOSE - 

PROCESS A BURST OF DATA 


***«***METH0D “ 

BURST IS HANDLED ACCORDING TO ICOND FROM SCAN ROUTINE. UNDER 
ICOND = 1 BURST IS READ UNTIL RUN TONE GOES OFF AND DATA IS 
IGNORED. IF ICOND = 3 DATA RECORD AND STATISTICS ARE 
REPRESENTED BY NULL VALUES. IF ICOND = 0 OR 2 DATA IS STORED 
AND THEIR STATISTICS ARE TO BE COMPUTED. 

METHOD OF PROCESSING DATA DEPENDS ON TYPE OF DATA BEING 
PROCESSED (PCM OR FM) . 

PCM DATA MUST BE CHECKED FOR LOSS OF FRAME SYNC AND IT CAN BE 
PROCESSED AT A SAMPLE RATE LOWER THAN THE ORIGINAL. 

FM DATA HAS NO LOSS OF SYNC AND DATA IS PROCESSED AT THE 
SAMPLE RATE AS RECEIVED. VIBRATORY AND STEADY COMPONENTS 
MUST BE COMPUTED FROM INPUT PEAK AND VALLEY DATA IN FMRD. 
PROCESSING OF DATA INCLUDES STORING DATA IN PACKED FORMAT 
THROUGH WRTRDF ROUTINE. DATA IS PASSED TO STATCL ROUTINE FOR 
COMPILE AND COMPUTATION OF STATISTICS. AT THE END OF EACH 
DATA BURST FINAL STATISTICS ARE COMPUTED AND WRITTEN ONTO THE 
STATISTICS FILE. 


«******input - 

NPASS -PASS number BEING PROCESSED 

ICOND -(SEE SCAN) 

IBURST -CARD INPUT BURST NUMBER 

NEVENT -MANEUVER NUMBER 

TO -BEGINNING TIME OF DATA BURST (SEC) 

TF -ENDING TIME OF DATA BURST (SEC) 

ITCD -(SEE SCAN) 
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TGAP 

-RATIO OF I. VS. INPUT SAMPLE 

RATE 


INTRVL 

-RATIO OF INPUT SAMPLE RATE VS 
-RATE 

. DATA FILE 

SAMPLE 

IFCD 

-FILE CODE OF INPUT TAPE 



OTYP 

-CODE TO DETERMINE IF CURRENT PASS OF DATA 
-PCM (DTYP = "X") OR FM (OTHER) (CHARACTER 
-OF INPUT SAMPLE RATE) 

IS 

PORTION 


*»*#***OUTPUT - 

KADDR 

IRETST 

ETO 

ETF 

NFRM 

NLOS 

MODE 

LOS 


-CURRENT ADDRESS OF DATA FILE RECORD FOR NPASS 
-(OUTPUT FROM WRTROF) 

-TAPE status as RETURNED FROM GFRAME (SEE PCMRD 
-AND FMRD) 

-BURST START TIME (OUTPUT FROM WRTRDF) 

-BURST STOP TIME (OUTPUT FROM WRTRDF) 

-NUMBER OF FRAMES OF DATA WITHIN BURST (OUTPUT 
-FROM WRTROF) 

-NUMBER OF LOSS OF SYNCS WITHIN BURST 

-(SEE STATCL AND WRTRDF) 

-LOSS OF SYNC DETECTOR CODE 
-=0»NO LOSS OF SYNC IN BURST 
-=l»LOSS OF SYNC OCCURRED IN BURST 


•♦•♦•••RESTRICTIONS - 
SAME AS IN SCAN 


***«***SUBPROGRAMS REQUIRED - 
PCMRD 

GFRAME 

SFRAME 

TMSET 

FMRD 

GFRAME 

EPACK 

STATCL 

WRTROF 
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PCMR PCMRD-REAO PCM DATA 

*#«*<HHt*»<HH»«**»»<Hnn»<M»SUPROUTINE PCMRD*«**<^******<>**<>*** ****<*******<*** 


<hhhmh»*NASA wallops VERSION OF 08/01/77 
*<h»**««LANGUAGE - FORTRAN IV 
<hhhhm»*MACHINE - HW 625/635 
»»«-»<nt«PURPOSE - 

THIS ROUTINE READS THE INPUT PCM TAPE OR TAPES AND RETURNS 
REQUIRED DATA. 


<hhhhhh»METHOD - 

THE PCM TAPE MUST BE OF STANDARD TELEVENT FORMAT BECAUSE DATA 
IS DECODED BY GFRAME MODULE. IF TAPE IS MULTI-REEL* 
SEQUENTIAL TAPE IS INITIALIZED BY SFRAME BEFORE DECODED BY 
GFRAME. 

THE STATUS OF EACH RECORD IS CHECKED FOR POSSIBLE PARITY ON 
READ AND END OF FILE DESIGNATOR. 

GROUND STATION TIME IS COMPUTED FROM 5 WORDS OF TIME (ITIME) 
RETURNED BY GFRAME. AIRBOURNE TIME IS COMPUTED FROM WORDS 2 
THROUGH 6 OF THE DATA ARRAY (IFR) RETURNED BY GFRAME. 

THE RUN TONE IS FOUND IN IFR(llO) AND ALTERED SO THAT A VALUE 
OF 256 represents RUN TONE SIGNAL BEING ON. 


ITCD -CODE DESIGNATING WHICH TIME WORD TO USE 

-=0*AIRBOURNE TIME 
-=l*GROUND STATION TIME 

IR -CODE DESIGNATING STATUS OF BURST 

-=0*SEARCHING FOR BEGINNING OF NEXT BURST 
-=1*WITHIN A DATA BURST (RUN TONE IS ON OR STOP TIME 
OF BURST HAS NOT BEEN REACHED) 


IFCD -FILE CODE OF INPUT TAPE 


■innnnnnfOUTPUT - 

T -TIME (GROUND STATION OR AIRBOURNE) 

IRT -RUN TONE 

-=2560R MORE*RUN TONE IS ON 

-=LESS THAN 256* RUN TONE IS OFF 
-=511* FULL SCALE 
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IRETST -READ STATUS OF FRAME 

-=1»2» OR 3*G00D READ 
-=10,END OF FILE ON TAPE 
-=OTHER. ERROR ENCOUNTERED* DATA IGNORED 

IPR -DECODED DATA ARRAY 

ICODE -CODE TO DESIGNATE END OF TAPE 

-=0*END OF TAPE NOT REACHED 

-=1»END OF TAPE ENCOUNTERED* INITIALIZE SEQUENTIAL 
TAPE 


••••♦^♦restrictions 

NONE 


♦♦•♦••♦SUBPROGRAMS REQUIRED - 
GFRAME 
SFRAME 
TMSET 
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PROGRAM IDENTIFICATION 

PROGRAM name - TMSET 
PROGRAM NO. - 1,1.2320 
AUTHOR - DAVID L. DAVIS 

COMPUTER - HW 625/635 

MEMORY - 101 WORDS 

PERIPHERALS - NONE 

LANGUAGE - GMAP 

PURPOSE 

TMSET DECODES AND PARITY CHECKS 
THE AIRBORNE TIME* AND RETURNS 
IT AS A FLOATING POINT VALUE 
IN TOTAL SECONDS. 

METHOD 

TIME IS CONVERTED TO TOTAL 
milliseconds* FL0ATED*AND 
DIVIDED BY 1000 TO GIVE TOTAL SECONDS. 
INPUT/OUTPUT 

CALLING SEQUENCE< 

CALL TMSET(A*B*C) WHERE 

A = 5 WORD ARRAY OF INPUT TIME 
B = OUTPUT TIME IN SECONDS (FLOATING POINT), 
C = PARITY CHECK FLAG 

IF C = #0# PARITY OK 
C = #1« PARITY ERROR 
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EPACK********»»»**»*<n****«******* 


PROGRAM lOENTIFICATION 
PROGRAM NAME - EPACK 
PROGRAM NO. - 1.1,2320 
AUTHOR - DAVID L. DAVIS 


COMPUTER 

MEMORY 

peripherals 

LANGUAGE 


HW 625/635 
105 WORDS 
NONE 
GMAP 


PURPOSE 


EPACK EDITS AND PACKS A 40 WORD 
INPUT ARRAY INTO A 10 WORD OUTPUT 
ARRAY, 


METHOD 

METH 

METHPCM DATA< -■ 

SYNC FLAG IS CHECKED. IF OUT OF SYNC 
BIT 23'IN ALL WORDS OF THE STATUS 
BUFFER IS SET TO A ONE («!#)» AND 
THE OUTPUT BUFFER IS SET TO MAXIMUM 
DATA VALUE. IF THE DATA IS IN SYNC* 
PARITY IS THEN CHECKED. WHEN A PARITY 
ERROR IS DETECTED, BIT 35 IN THE 
CORRESPONDING STATUS WORD IS SET AND 
MAXIMUM DATA VALUE IS INSERTED IN 
THE PROPER POSITION OF THE OUTPUT 
BUFFER. IF NO SYNC OR PARITY ERRORS 
ARE DETECTED THE DATA RANGE IS CHECKED. 
FOR DATA BETWEEN 0 AND 511 (EXCLUSIVE) 
THE DATA VALUE IS MOVED TO THE PROPER 
WHEN DATA IS NOT WITHIN THIS RANGE* 
POSITION IN THE 10 WORD OUTPUT BUFFER. 
WHEN DATA IS NOT WITHIN THIS RANGE* 

BIT 29 IN THE CORRESPONDING STATUS 
WORD IS SET AND THE DATA BITS ARE SET 
TO ONES (Wl#) IN BOTH THE INPUT AND 
OUTPUT BUFFERS, 


FM DATA< 

SINCE THERE IS NO PARITY BIT WITH FM 
DATA NO PARITY CHECK IS PERFORMED. 
HOWEVER* ALL OTHER CHECKS ARE THE SAME 
AS FOR PCM DATA. 

INPUT/OUTPUT 
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CALLING SEQUE:NCE< 


CALL EPACK(A.B*C»D*E) WHERE 

A = FIRST WORD ADDRESS OF INPUT BUFFER 

B = FIRST WORD ADDRESS OF STATUS BUFFER 

C = FIRST WORD ADDRESS OF OUTPUT BUFFER 

D = DATA SYNC FLAG 
E = DATA TYPE 

INPUT BUFFER - 40 WORD ARRAY WITH DATA IN 

BITS 21 THRU 35 OF EACH WORD, 


STATUS BUFFER - 40 WORD ARRAY WITH BITS 
23* 29* AND 35 USEDTO 
DESCRIBE THE CONDITION OF 
THE CORRESPONDING INPUT 
BUFFER WORD. 

BIT 23 = I - LOSS OF SYNC 
BIT 29 = 1 - DATA RANGE ERROR 
BIT 35 = 1 - PARITY ERROR 
OUTPUT BUFFER - 10 WORD ARRAY WITH 4 
9 BIT DATA VALUES PER 
WORD, 


DATA 

SYNC 

FLAG - 1 

= LOSS OF SYNC 



0 

= SYNC 

DATA 

TYPE 

FLAG - 1 

= FM DATA 



0 

= PCM DATA 
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FMRD FMRD-READ FM DATA 

SUBROUTINE FMRD<>***»<»**<»«********<*******^***<^*** 


<hhhhhh»NASA wallops VERSION OF 08/01/77 


<nnnt***LANGUAGE - FORTRAN IV 
<nnnMMHtMACHINE - HW 625/635 


•i»»***<h»PURPOSE - 

THIS ROUTINE READS THE INPUT FM TAPE AND RETURNS REQUIRED 
DATA. 


<hhhhhh»Me;THOD 

THE FM TAPE MUST BE OF STANDARD TELEVENT FORMAT BECAUSE DATA 
IS DECODED BY GFRAME MODULE. 

THE STATUS OF EACH RECORD IS CHECKED FOR POSSIBLE PARITY ON 
READ. AND END OF FILE DESIGNATOR. 

AIRBOURNE TIME IS THE ONLY TIME RECORDED AND IS COMPUTED FROM 
5 WORDS OF TIME ( ITIME) .RETURNED BY GFRAME. 

THE RUN TONE SIGNAL IS FOUND IN IFR (1) OF THE DATA ARRAY. 

VIBRATORY AND STEADY COMPONENTS ARE COMPUTED FROM INPUT PEAK 
AND VALLEY DATA. 


*•»»**** I UP UT - 

IR -CODE DESIGNATING STATUS OF BURST 

-=0*SEARCHING FOR BEGINNING OF NEXT BURST 
-sl.WITHIN A DATA BURST (RUN TONE IS ON OR STOP 
TIME OF BURST HAS NOT BEEN REACHED) 


«nnnnt**OUTPUT - 

T -TIME (AIRBOURNE TIME) 

IRT -RUN TONE 

-=511. FULL SCALE 

-=256 OR MORE. RUN TONE IS ON 

-=LESS THAN 256. RUN TONE IS OFF 

IRETST -READ STATUS OF FRAME 

-=1.2. OR 3. GOOD READ 
-=10.END OF FILE ON TAPE 
-=OTHER. ERROR ENCOUNTERED. DATA IGNORED 
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lOUT -DECODED DATA ARRAY CONTAINING VIBRATORY AND 

-STEADY COMPONENTS 

lERR -ERROR RETURN FROM EPACK 

IPCK -PACKED DATA ARRAY FROM EPACK 

RESTRICTIONS - 
NONE 


•••♦♦♦♦SUBPROGRAMS REQUIRED - 
GFRAME 
EPACK 
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STAT STATCL-COMPILE STATISTICS 

•tnnnnnnnnt#'tn»'tt*«'tnnnnHn>-ttSUBROUTINE STATCL**'"'***''***********''*******'******''’’ 


**<Mt**«NASA WALLOPS VERSION OF 08/01/77 
****<nt*LANGUAGE - FORTRAN IV 
**<m»<hh»MACHINE - HW 625/635 
<nnnn»»*P(jRPOSE - 

THIS ROUTINE COMPILES AND COMPUTES STATISTICS AND OUTPUTS ONTO 
THE STATISTICS FILE. 


*******METH0D - 

STATISTICS ARE ACCUMULATED DURING THE PROCESSING OF A DATA 
BURST. SUCH STATS ARE RUNNING SUM* RUNNING SUM OF SQUARES* 
MAX, MIN, AND BIN COUNT FOR 95 PERCENTILE OF VIBRATORY. AND 
AT THE COMPLETION OF EACH BURST, STATS ARE COMPUTED, STORED 
IN AN ARRAY AND OUTPUT ON STATISTICS FILE IN EVCHK. 

IF THERE IS ONLY ONE DATA POINT OR NO DATA POINTS FOR A BURST, 
NULLS ARE STORED IN THE STATISTICS FOR THAT BURST. 


input - 

MODE -CODE TO DESIGNATE DATA STATUS 

-=0, INITIALIZE STATISTICS ARRAY (FIRST FRAME OF 
BURST) 

-=1, STATISTICS BEING ACCUMULATED 

-=2, FINALIZE STATISTICS (LAST FRAME OF BURST HAS 
BEEN STORED) 

FRMBF -FLOATING POINT EQUIVALENT OF DATA ARRAY 

NPAR -NUMBER OF PARAMETERS IN PASS 

PPC -PRE-PROCESSING CODE OF SENSOR 

LOC -AO-WORD ARRAY OF LOCATIONS WITHIN FRMBF FOR EACH 

-PARAMETER 

STATBF -AOO-WORO STATISTICS BUFFER WITH 10 WORDS FOR EACH 

-OF 40 PARAMETERS FOR BURST 

STATBF(l) -MAXIMUM 

STATBF(2) -CORRESPONDING VIBRATORY FOR MAXIMUM STEADY OR 
-CORRESPONDING STEADY FOR MAXIMUM VIBRATORY 

STATBFO) -MINIMUM 
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STATBF(4) 

STAT8F(5) 

STATBF(6) 

STAT8F(7) 

STATBF(8) 

STATBF(9) 

STATBF(IO) 


-CORRESPONDING VIBRATORY FOR MINIMUM STEADY OR 
-CORRESPONDING STEADY FOR MINIMUM VIBRATORY 

-MEAN 

-STANDARD DEVIATION 

-95 PERCENTILE 

-NUMBER OF POINTS IN BURST 

-NUMBER OF ERROR POINTS 

-ERROR CODE (OUTPUT FROM EPACK) 


*******rESTRICTIONS - 
NONE 


*******subprograms required - 

NONF 
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WRTR WRTRDF-OUTPUT DATA ON TAPE 

***<t*»*NASA WALLOPS VERSION OF 08/01/77 
<hhhhhh»LANGUA6E - FORTRAN IV 
***«***MACHINE - HW 625/635 


******ttP(jRPOSE - 

THIS ROUTINE OUTPUTS PASS DATA RECORDS ONTO PASS FILES. 


**»****METH0D - 

TIME* PACKED DATA, EVENT NUMRER* AND NUMBER OF FRAMES FOR EACH 
PASS ARE STORED INTO AN ARRAY AND OUTPUT ONTO A PASS FILF FOR 
EACH PASS. 


»««««««XNPUT - 


T 

-TIME 


IPCK 

-PACKED DATA ARRAY FROM EPACK 


NGVENT 

-MANEUVER NUMBER 


NPASS 

-PASS NUMBER BEING PROCESSED 


MODE 

-CODE TO DESIGNATE DATA STATUS 
-=0, INITIALIZE BEGINNING OF DATA 
-=1*DATA BEING ACCUMULATED 
-=2, FINALIZE DATA 


■#*»«OUTPUT - 

IFRAME 

-COUNTER OF CURRENT FRAME POSITION ON OUTPUT 
-FILE RECORD 

DATA 

KADOR 

-CURRENT address OF DATA FILE RECORD FOR NPASS 

NFRM 

-NUMBER OF FRAMES OF DATA FOR BURST 


ETO 

-START TIME OF BURST 


ETF 

-STOP TIME OF BURST 


IDATA 

-OUTPUT RECORD CONTAINING TIME* PACKED DATA* 
-NUMBER* AND NUMBER OF FRAMES FOR PASS 

EVENT 
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<mhhm»**RFSTRICTIONS - 
NONE 


*******SUBPROGRAMS REQUIRED - 
NONE 
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ROFR RDFRD SUBROUTINE 

♦******»KIASA wallops VERSION OF 08/01/77 
*****«**LANGUAGE - FORTRAN Y 
******<MtMACHINF - HW 625/635 


********PURPOSF - 

THIS ROUTINE ACCESSES INFORMATION FROM PAW DATA FILES AND 
PAW STATISTICS FILES AS PRODUCED THROUGH SCAN PROGRAM. 


********METH0D - 

THIS ROUTINE WILL EXTRACT DATA FOR A GIVEN SET OF PARAMETERS 
ACCORDING TO INPUT ARGUMENTS TO THIS ROUTINE AND RETURN THFM 
TO THE CALLING ROUTINE. 


•«««««»« JNPUT 

ITOS 


ITYPE 

ICONV 

IRUN 

NPAR 

NPAR 

NAMES 

PPC 

SR 

ISMPL 

LSMPL 

ISZBUF 


-=0»WHEM INITIAL CALL WITH GIVEN SET OF PARAMETER 
SPECS WHICH MUST BE USED TO SEARCH SENSOR TABLE 
-=ltWHEN PREVIOUS CALL WITH SAME SET OF PARAMETER 
SPECS HAS BEEN USED TO DEFINE TABLE OF 
SURSCRITS ARGUMENT (TOS) THUS AVERTING SEARCH 
OF SENSOR TABLE 

-=0fDATA SAMPLES ARE BEING REQUESTED 
-=1 fSTATISTICS ARE BEING REQUESTED 
-=1»STATISTICS ARE BEING REQUESTED 

-=0»RESULTS ARE TO BE IN RAW UNITS 
-=1*RFSULTS ARE TO BE IN ENGINEERING UNITS 

-RUN (EVENT) NUMBER REQUESTED 

-NUMBER OF PARAMETERS REQUESTED 
-NUMBER OF PARAMETERS REQUESTFO 

-PARAMETER MNEMONICS 

-PARAMETER PRE-PROCESSING CODES 

-PARAMETER SAMPLE RATE 

-BEGINNING SAMPLE NUMBER REQUESTED. IF DATA 
-ENDING sample NUMBER REQUESTED. IF DATA 
-SIZE OF OUTBUF 
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TOS 


TOS(l) 
T0S(2) 
TOS (3) 
T0S(4) 


-TABLE OF SUBSCRIPTS* 4 WORDS PER PARAMETER* BUILT 
-WITHIN ROUTINE WHEN ITOS = 0 FOR POSSIBLE 
-SUBSEQUENT CALLS WITH SAME SET OF PARAMETER SPECS 
-PASS NUMBER 
-ELEMENT NUMBER 
-A TERM 
-B TERM 


**<nnnt**OUTPUT 


OUTBUF 

ISZBUF 

NFOUT 


MSG 


lER 


-OUTPUT BUFFER FOR DATA OR STATISTICS 
-SIZE OF OUTBUF 

-OUTPUT ARRAY OF ACTUAL NUMBER OF FRAMES RETURNED 
-FOR EACH PARAMETER 

-array of output PARAMETER MESSAGES WHEN ASKING 
-FOR DATA 
-=0*NO ERRORS 

-=1*LESS DATA RETURNED THAN REQUESTED BECAUSE 

ENDING SAMPLE REQUESTED IS GREATER THAN LAST 
SAMPLE AVAILABLE 

-=2*BEGINNING SAMPLE REQUESTED IS GREATER THAN LAST 
sample AVAILABLE 

-OUTPUT ERROR CODE DETERMINED AS THE SUM OF THE 

-FOLLOWING INDIVIDUAL CODES 

-=0*NO ERRORS 

-=1*CAL RUN REQUESTED 

-=2*PARAMETER LEVEL ERRORS EXIST 

-=4*N0 SUCH RUN 

-=8*BUFFER SIZE ERROR 


<mmhhhhh»rESTRICTIONS - 
NONE 


«<nnnt***suBPROGRAMS REQUIRED - 
RDFSUB 
UNPACK 


174 












176 










^IS \ 
ITYPE<r 
? ^ 


COMPUTE 

IREC 


GO TO 
40 


/ IS\ 
^ISTAT>7 \ 
ORICONVO 
0R0UTBUF=XULL 
V OR PPC=P , 
\ / 


GO TO' 
400 } 



COMPUTE 

OUTBUF 


DO 300 
IPAR=1.NPAR 


COMPUTE 

JPASS 



GO TO 1 
300 / 


IS 

TPC(IPAR)='V 
0RISTAT=6 
^ ? 


SET 

OUTBUF= 

OUTBUF+BT 


'tUTBUKO^ 
AND PPC=A 
? 


CONTINUE 


SET 

NF0UT(IPAR)=10 


^ IS^ 
IC0NV<1 
ORAT^O. 


SET 

OUTBUF= 

|outbuf| 


'GO TO 
400 


GO TO 
300 
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PPC(IPA^ 
='D' OR 'S' 


SWAP OUTBUF 
(10*IPAR-9) AND 
OUTBUF 
(10*IPAR-7) 


/ IS\ 
IREC OR 
NREC=0 


SWAP OUTBUF 
(10*IPAR-8) AND 
0UTBUF(10*IPAR-6) 


^ IS \ 
IREC=NREC 


GO TO 
50 


CONTINUE 


GO TO 
100 


^ IS\. Y 
ISTATC=3 \ 
? ^ 


SET 

NFRM=15 

IP0S=41 



' CALL 
RANSIZ 


IREO>^^ 
NREC 
? ^ 


GO TO 
50 


READ(07‘ 
IPASS+1) / 
TABREC I 
(PASS TABLE)' 


COMPUTE 
IFRM. AND 
KFRM 


COMPUTE IREC, 
NREC, AND 
ISTATC 
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RDF ****«*******«*« SUBROUTINE RDFSUB*<>***4*<^***»<*'<>*^*«*<^<^<>*»<^***«**** 


*******«KjASA wallops version of 08/01/77 


*»*»**<h»LANGUAGE - FORTRAN Y 


*<mhhh»*«MACHINE - HW 625/635 


***«****PURP0SE - 

BUILD A TABLE OF SUBSCRIPTS TO BE USED IN RDFRD. 


******«*METH00 - 

GIVEN A SET OF NAMES* PPC* AND SR THE PASS AND SENSOR TABLES 
ARE READ TO FIND WHICH PASS AND PARAMETER NUMBERS CORRESPOND. 
THESE ARE OUTPUT TO THE SUBSCRIPt ARRAY (TOS) IN CONJUNCTION 
WITH THE ENGINEERING UNIT CONVERSION FACTORS. IF A SEARCH 
OF THE PASS AND SENSOR TABLES DOES NOT FIND A MATCH* TOS 
VALUES ARE RETURNED AS ZEROES. 


*#**»«*« INPUT - 


ITYPE 

-=0*DATA SAMPLES ARE REQUESTED 
-=1*STATISTICS ARE REQUESTED 

ICONV 

-=0*RESULTS ARE TO BE 

-=i .results are to be 

IN RAW UNITS 
IN ENGINEERING UNITS 

NPAR 

-NUMBER OF PARAMETERS 

REQUESTED 

NAMES 

-PARAMETER MNEMONIC 


PPC 

-PARAMETER PRE-PROCESSOR CODE 

SR 

-parameter sample RATE 



*hhhhhhh»OUTPUT - 

TOS -(SEE RDFRD INPUT) 


iHUHHUuHtRESTRICTIONS - 
NONE 


**hmhm***SUBPROGRAMS REQUIRED - 

NONE 
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«««««««««««««««»»«»««««««« SU9R0UTINE UNPACK ************************** 

PROGRAM IDENTIFICATION 

PROGRAM NAME - UNPACK 
PROGRAM NO. - 1.1.2320 
AUTHOR - DAVID L. DAVIS 

COMPUTER - HW 62S/635 

MEMORY - 70 WORDS 

PERIPHERALS - NONE 

LANGUAGE - GMAP 

PURPOSE 

TO UNPACK 40 DATA VALUES FROM 
A 10 WORD ARRAY (4 DATA VALUES 
PER WORD) IN A 40 WORD ARRAY 
(ONE data value per WORD). 

METHOD 

THE THIRD ARGUMENT IS EXAMINED 
TO SEE IF ALL 40 DATA VALUES ARE 
REQUESTED OR IF ONLY ONE IS REQUESTED. 

THE SPECIFIED AMOUNT OF DATA IS THEN 
MOVED TO THE OUTPUT BUFFER. 

INPUT/OUTPUT 

CALLING SEQUENCE< 

CALL UNPACK (A*B*C) WHERE 

A = FIRST WORD ADDRESS OF 10 WORD INPUT BUFFER 
B = FIRST WORD ADDRESS OF 40 WORD OUTPUT 
BUFFER IF C IS NON-ZEPOt OR ONE WORD 
BUFFER IF C IS ZERO. 

C = CHARACTER POSITION INDICATOR (1 - 4) 
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GET POSITION OF 
DATA VALUE 
REQUESTED 

~T~ 

MOVE REQUESTED 
DATA TO OUTPUT 


RETURN 





















ABTASK 

<hh»<hhmh»njASA wallops VERSION OF AUG 19» 1977 
**<nnMMHtLANGUAGE - FORTRAN Y 
«hhh»»*«*MACHINE - HONEYWELL 600 SERIES 
««<nnnnn»PURPOSE 

TO COMPUTE LINEAR COEFFICIENTS (SLOPE ANO INTERCEPT) 
FOR CONVERSION OF RAW UNITS TO ENGINEERING UNITS 


•ihhhhhhh»ME;THOD 


A. HEAPOER AND CALRUN TABLES ARE READ 

P. PASS AND SENSOR TABLES ARE READ FOR EACH PASS 

C. STATUS IS CHECKED TO DETERMINE IF A8 IS TO BE RUN 

D. STATISTICS ARE OBTAINED FROM FILE 09 THROUGH RDFRD 

E. CALTYP IS CHECKED AND A AND B ARE CALCULATED AS FOLLOWS 

1. IF CALTYP = 1 
A = EUCVl 

B = EUCV2 

2. IF CALTYP = 2 

A = EUCV1/(EUCV2/100)*256 
B = -A«256 
unless EUCV2 = 0 
A = 1 
B = 0 

1 . IF CALTYP = P 

A = (EUCV1-EUCV2)/(RBAR-ZBAR) 

B = EUCVl - A*ZBAR 

4. IF CALTYP = Z 

A = EUCV1/(RBAR-ZBAR) 

B = EUCV2 - A*ZBAR 

5. IF CALTYP = X 

A = EUCVl/ (RBAR-ZBAR) 

B = (PRE*XE8AR ♦ POST*XTBAR ) / ( PRE ♦ POST) 

UNLESS POST AND PRE = 0 
P = EUCV2 - A*XBAR 

F. PERCENT FULL SCALE AND SHIFT ARE CALCULATED 

G. DATA AVAILABILITY STATUS IS CHANGED TO 2 

H. PASS AND SENSOR TABLES ARE UPDATED 
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INPUT - FROM FILF 07 


HTA8(27) 
MAXPAS 
CTAB (120) 

ICTAB(120) 
PTA8(600) 
CPTAB (600) 
MAXPAR 
ISTATC 


STA8(600) 

CSTAB(600) 

CALADR (40) 

PPC(40) 

CALTYP(40) 

EUCVK40) 

EUCV2(40) 

INPUT FROM 

STATISTICS 
OF RAW DATA 

OUTPUT - TO 

A (40) 

R(40) 

AVG(40,6) 

STO(40»6) 

IPCFS 


HEADER TABLE - CONTAINS DATA IDENTIFYING FLIGHT 

MAXIMUM NUMBER OF PASSES - FROM HTAB 

CALIBRATION RUN TABLE - CONTAINS RUN NUMBERS 
FOR SPECIFIED MANEUVER 

INTEGER representation OF CTAB 

PASS TABLE - CONTAINS DATA CONCERNING EACH PASS 

CHARACTER REPRESENTATION OF PTAB 

NUMBER OF PARAMETERS IN PASS - FROM PTAB 

DATA AVAILABILITY STATUS CODE - FROM PTAB 

0 = DATA NOT AVAILABLE 

1 = DATA AVAILABLE 

2 = ABTASK COMPLETED 

3 = OPTASK COMPLETED 

SENSOR TABLE - CONTAINS SENSOR INFORMATION 
CHARACTER REPRESENTATION OF STAB 
CALA8RATI0N ADDRESS FOR EACH PARAMETER 
PRE-PROCESSING CODE FOR EACH PARAMETER 
CALIBRATION TYPE FOR EACH PARAMETER 
FACTORY CALIBRATED A TERM FOR EACH PARAMETER 
FACTORY CALIBRATED B TERM FOR EACH PARAMETER 
FILE 09 THROUGH SUBROUTINE POFRO 
- AVERAGES AND STANDARD DEVIATIONS 

FILE 07 

CALCULADED A TERM - WRITTEN ON SENSOR TABLE 
CALCULATED 8 TERM - WRITTEN ON SENSOR TABLE 
AVERAGES FOR SPECIFIED PARAMETER 
STANDARD DEVIATIONS FOR SPECIFIED PARAMETER 
PERCENT FULL SCALE 
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ISHFT 


CHANGE IN IPCFS BETWEEN PRE AND POST 


SUBROUTINES REQUIRED 

ROFRD 

ROFSU8 
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CALTYP::! 
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*See Sub-program RDFRD for Comments and Flowcharts 
**See Program DATASK for Comments and Flowchart 


HIERARCHY CHART For STATPRINT PROGRAM 








STPRT STATISTICS PRINT-OUT 
**«*««*«STATPRINT - PROGRAM NUMBER 1.1.2327 

*<mhh»***NASA wallops version of 08/01/77 


**#**«**LANGUAGE - FORTRAN Y 
****imh»*HACHINE - HW 625/635 
«Mnnnnt**PROGRAM AUTHOR - JEANETTE WESSELLS 


****<nnntpURPOSE - 

FOR ALL DATA? ALL DATA OF A GIVEN PASS? SELECTED PARAMETERS 
FROM ANY PASS. GENERATE STATISTICS TABULATION ON ALL BURSTS 
IN EITHER RAW UNITS OR ENGINEERING UNITS. 


»««»»«««METH00 - 

STATPRINT EXTRACTS STATISTICS FROM FILE AND PRODUCES PRINTED 
OUTPUT OF COMPUTED MANEUVER STATISTICS INCLUDING MAXIMUM. 
MINIMUM. AVERAGE. STANDARD DEVIATION. NO. OF POINTS. NO. OF 
ERROR POINTS. AND ERROR CODE IN COLUMN FORMAT FOR EACH 
PARAMETER. 

THE AMOUNT OF OUTPUT IS CONTROLLED BY INPUT CARDS WHICH MAY 
CONTAIN PASS NUMBER. MNEUMONIC NAME. PRE-PROCESSING CODE. 
SAMPLE RATE FOR PARAMETER. AND UNITS DESIGNATOR CODE. THESE 
INPUT CARDS CONTROL 3 MODES OF LOGIC< 

MOOEl - IPASS. name. PPC ARE NOT SPECIFIED YIELDS LISTING OF 
ALL PARAMETERS FOR ALL AVAILABLE PASSES 
M0DE2 - IPASS IS SPECIFIED YIELDS LISTING OF ALL PARAMETERS 
FOR A GIVEN PASS 

M0DE3 - NAME. PPC. AND SR IS SPECIFIED YIELDS LISTING FOR 
ONLY THAT PARAMETER 

ALL INFORMATION IS IN EITHER RAW UNITS OR ENGINEERING UNITS 
DEPENDING ON THE VALUE OF ICONV. 

DATA IS ACCESSED THROUGH RDFRD MODULE. 


**<n»*»**SYSTEMS INPUT FILES - 
FILE 05 = CARD READER 
FILE 07 = TABLE FILE 
FILE 09 = STATISTICS FILE 
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********SYSTEMS OUTPUT FILES 


FILE 06 = 
file 07 = 

****»«••»•» input - 

IPASS 

NAMES 

PPC 

SR 

ICONV 

«««««»««OUTPUT - 
TAPENO 
FTP 

FLIGHT 

UNIT 

IPASS 

NAMES 

PPC 

SR 

LTITL 

IRUN 

LIN8UF 
LINBUF(l) 
LIN0UF (2) 
LINBUFO) 
LINBUF (4) 
LIN8UF (5) 
LIN8UF(6) 
LINBUF (7) 
LINBUF (fl) 
LINBUF(9) 
LINBUF (10 


PRINTER 
TABLE FILE 


-PASS number (CARD INPUT) 

-ARRAY OF PARAMETER MNEMONICS (CARD INPUT) 

-parameter pre-processing code 

-PARAMETER SAMPLE RATE 

-UNITS DESIGNATOR 
-=0. OUTPUT RAW UNITS 
-=l*OUTPUT ENGINEERING UNITS 


-FLIGHT TAPE MNEMONIC 
-FLIGHT TEST PLAN NUMBER 
-FLIGHT NUMBER 

-OUTPUT IN RAW OR ENGINEERING UNITS 

-PASS NUMBER 

-parameter MNEMONIC 

-PARAMETER PRE-PROCESSING CODE 

-parameter sample RATE 

-LINE TITLE FOR SENSOR MNEMONIC 

-RUN number 

-OUTPUT STATISTICS ARRAY 
-MANEUVER NAME 
-MANEUVER NAME 
-MAXIMUM VALUE 
-MINIMUM VALUE 
-AVERAGE 

-STANDARD DEVIATION 
-95 PERCENTILE 
-NUMBER OF POINTS 
-NUMBER OF ERROR POINTS 
)-TYPE OF ERROR CODE 
-=000100, LOSS OF SYNC ERROR 
-=000010, FULL SCALE ERROR 
-=000001, PARITY ERROR 



*******»rESTRICTIONS 

NONE 


*****<hh»subprograms required 

RDFRD 

ROFSUB 

UNPACK 

GETUPC 
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READ (07' 42)/ 
EVTREC 
(EVENT 
TABLE) 


EXTRACT EVENT 
AND ETYPE FROM 
EVENT TABLE 



INITIALIZE 
LINBUF TO 
BLANKS 


SET LINBUF(l) 
and LINBUF(2) 
= EVENT 
KSTAT = 2 


STORE 

STATISTICS 
ARRAY INTO 
LINBUF ARRAY 


PRINT 

LINBUF ARRAY 
LINE=LINE+1 


ENCODE 
(EVENT, ) 
ETYPE, '-CAL' 



PRINT HEADER 
INFORMATION 
SET LINE = 5 
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*See Sub-program RDFRD for Comments and Flowcharts 
**See Program SCAN for Comments and Flowcharts 


HIERARCHY CHART for DPTASK PROGRAM 
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DPTK 


SUBROUTINE DPTASK 


SUBROUTINE DPTASK 


PROGRAM IDENTIFICATION 

PROGRAM NAME DPTASK 

PROGRAM number 11E338 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW625/635 

MEMORY all files 0PEN(23K) 

PERIPHERALS CARD READER* DISC * PRINTER 

LANGUAGE HW6000 FOWTR AN/FORT Y 

PURPOSE 

THE PURPOSE OF THIS PROGRAM IS TO COMPUTE DERIVED PARAMETERS 
FROM parameters PREVIOUSLY SPECIFIED IN A FRAME OF DATA 
AND TO WRITE THESE DERIVED PARAMETERS ON A OATA FILE. 

method 

A SUBROUTINE WITH TWO ENTRY POINTS IS REQUIRED. 

1. CALL OPOEF - THIS IS AN INITIALIZATION CALL TO HE MADE 

ONCE PRIOR TO BEGINNING EACH DP PASS. ITS 
PROCESS IS TO DEEINE FOR THE DPCOMP ROUTINE 
WHAT PASS IS TO RE PROCESSED AND IN RETURN IT 
WILL RETURN TO THE CALLING PROGRAM A LIST OF 
SPECIFICATIONS FOR THE PARAMETERS THAT IT WILL 

BE NEEDING AND FOR THE PARAMETERS IT WILL BE 

GENERATING. 

2. CALL DPCOMP - THIS ENTRY IS MADE FOR EACH FRAME OF DATA. 

A SUBROUTINE ULINT IS ALSO REQUIRED TO PERFORM UNIVARIATE 

LINEAR INTERPOLATION. 

INPUT/OUTPUT 

IPASS - A NOMINAL PASS NO. TO RE PROCESSED. THIS IS THE ONLY 

INPUT ARGUMENT TO THIS ENTRY. IT IS THE NOMINAL PASS NO. 

AS OPPOSED TO THE ACTUAL PASS NO. IN THAT A VALUE OF 

1 WILL INDICATE THE FIRST DP PASS EVEN THOUGH THE 
ACTUAL PASS NO. MAY BE SOMETHING OTHER THAN 1. 

A VALUE OF 2 WILL INDICATE THE SECOND DP PASS ETC. 

IF THE PASS NO. SPECIFIED DOES NOT EXIST THIS ARGUMENT 
WILL RE RETURNED TO THF CALLING PROGRAM AS A ZERO 
INDICATING THAT OP IS COMPLETE. 

NOPF - THE NO. OF VALUES THAT ARE REQUIRED FROM THF ONCE PER 
FLIGHT SECTION OF THE HEADER TABLE. 
lOPFLC - AN ARRAY OF ONCE PER FLIGHT ENTRY NOS. NOPF IN LENGTH* 
DEFINING WHICH ONCE PER FLIGHT VALUES WILL BE NEEDED. 
NSTREQ - THE NO. OF PARAMFTFR STATISTICS WHICH MAY BE REQUIRED. 
ISTAT - AN ARRAY WITH NSTREQ ENTRIES EACH OF WHICH WILL BE A 
NUMBER FROM 1 TO 10 INDICATING THE STATISTIC ELEMENT 
WHICH WILL BE REQUIRED. 
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STPAR - AN ARRAY WITH MSTREQ ENTRIES EACH OF WHICH IS A 

PARAMETER MNEMONIC INDICATING THE PARAMETER WHOSE 
STATISTIC WILL BE REQUIRED. 

STPPC - AM ARRAY WITH NSTREQ ENTRIES EACH OF WHICH IS A PPC 

CORRESPONDING TO THE MNEMONICS OF THE ABOVE ARGUMENT. 
STSR - AN ARRAY WITH NSTREQ ENTRIES EACH OF WHICH IS A 
sample RATE CORRESPONDING TO THE MNEMONIC ABOVE. 

NPAREO - THE NO. OF PARAMETERS THAT WILL BE REQUIRED AS INPUT 
ON A FRAME BY FRAME BASIS. 

SR - THE SAMPLE RATE OF THE PARAMETER REQUIRED ON A FRAME 
BASIS. THIS WILL ALSO BE THE SR OF THE PARAMETERS TO 
BE COMPUTED ON A FRAME BASIS. 

PARNAM - AN ARRAY OF NPAREQ LENGTH DEFINING THE MNEMONICS OF 
THE RARAMETERS THAT WILL BE NEEDED AS INPUT ON A 
FRAME BASIS. 

PPC - AN ARRAY OF NPAREQ LENGTH DEFINING THE CORRESPONDING 
PRE-PROCESS COOES FOR THE ABOVE PARAMETERS. 

NPOUT - THE NO. OF PARAMETERS THAT WILL HE COMPUTED FOR THIS 
PASS ON A frame basis. 

PAROT - AN ARRAY OF LENGTH NPOUT CONTAINING THE MNEMONICS OF 

THE PARAMETERS THAT WILL BE GENERATED ON A FRAME BASIS. 
PPCOT - AN ARRAY OF LENGTH NPOUT CONTAINING THE PRE-PROCESS 
CODES FOR THE ABOVE PARAMETERS. 

ITRANS - = ZERO IF STEADY STATE CONDITION* ONE IF TRANSIENT 
CONDITION 

ISTFRM - = ZERO IF THIS FRAME IS THE FIRST FRAME IN THE BURST 
= ONE IF NOT FIRST FRAME OF BURST 
OPFVAL - ARRAY OF ONCE PER FLIGHT VALUES* NOPF IN LENGTH 
STVAL - ARRAY OF STATISTIC VALUES* NSTREQ IN LENGTH 
PARVAL - ARRAY OF INPUT FRAME VALUES* NPAREQ IN LENGTH 
DPVAL - ARRAY OF DP VALUES RETURNED TO CALLING PROGRAM* 

NPOUT IN LENGTH 

calling SEQUENCE 

CALL DPDEF { IP ASS* NOPF* lOPFLC* NSTREQ * ISTAT* STPAR* STPPC* STSR* 
NPAREQ* SR* PARNAM* PPC* NPOUT* PAROT* PPCOT) 

CALL RDFRO ( ITOST* 1 * I * IRUN*NSTREQ*STPAR*STPPC*STSR *0,0*OUTBUF* 
(10«MSTREQ) *T0STAT*NF0UT*MSG* IER) 

CALL DPCOMPdTRANS * 0 * OPFVAL * ST VAL * PARVAL * DPVAL) 

CALL RDFRD(ITOS*0*1*IRUN* (NPAREQ+1) * PARNAM * PPC * SR * I SMPL * NSMPL * 
PARVAL * ( (NPAREQ*) ) ) *TOS*NFOUT*MSG* IER) 

CALL DPCOMP ( ITRANS* ISTFRM* OPFVAL * ST VAL* VALIN*DP VAL) 

CALL STATCL ( ISTFRM * DPVAL * NPOUT , PPCOT * EUCV 1 * EUCV2 * LOCOT * STATBF ) 
CALL STATCL (2* IFRMBF *NPOUT * PPCOT . EUCV 1 * EUCV2 * LOCOT * STATBF ) 

COMMON AREAS 

TABLl/THEAD 


SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARO FORMATS * 
FILE DESCRIPTIONS OR FOR ANY OTHER SPECIFIC INFORMATION) 
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_50 

NADDR=100* 

(KPASS(M)-1)+ 

IRUN 


/WRITE \ 
(09'NADDR)> 
STATBF 
. DISC > 


LINCNK 42 


^ NO 

WRITE(6,1002) 
JPASS(M), SR(1) 
('DERIVED PARA- 
METER FOR PASS = 
; 13, 'DATA FILE 
SAMPLE RATE OF; 
A6) 


WRITE (6,1003) 
(PAGE HEADINGS) 


LINCNT 

=5 


WRITE(6,1004) 
IRUN,ETYPEC 
(1H,3X,I3,9X, 
^ ^ Al) 


LINCNT= 

LINCNT+ 

1 


ITRANS= 

0 
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NPAREQ >0 
\ ? . 



1 

DO 100 I=1,NP0UT 

I 


1 

1 

STATBF(10*I-5)= 

DPVAL(I) 

STATBF(10’^I-2)=1.0 

STATBF(10*I)=0.0 

1 

1 

1 

1 

<^AL(I)=XULt|>_. 

1 

1 

^V^O 

1 

STATBF(10*I-4)=0.0 

1 

1 

STATBF(10*I-1)=0.0 

1 

1 

102 

1 

1 

STATBF(10*I-1)=1. - 
n 

1 

TOO ^ 

— ( continue) 

105 ^ 


MADDR=100*(KPASS 
(M)-l) + IRUN 

w 


YES 



55 

ISTREC=0 ISMPL=0 
ISTFRM=0 NSMPL=0 
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I ^DO 415 1=1,101 


TABREC(I+4)= 

lADDR(I) 

415 4r 
CONTINUE 


/WRITE \ 
A07'CKPASS> 
CM)+D) 
Vtabrec j 

VDISC yy 


CONTINUE 


DO 420 1=1 ,27 


TABRECCD= 

THEAD(I) 


f CONTINUE 


WRITE 

(07-1) 

TABREC 

DISC 


RETURN 


223 







DPOE SUBROUTINE DPDEF 

subroutine; DPOEF ( ipass*nopf* iopflc*nstreq» istat»stpar,stppc»stsp» 

1 NPAREQ*SR»PARNAM,PPC«NP0UT »PAR0T»PPC0T) 

•»*<nt<nnntSUBROUTINE DPDEF — ENTRY POINT DPCOMP**************^************* 

PROGRAM IDENTIFICATION 

PROGRAM NAME DPDEF (ENTRY DPCOMP) 

PROGRAM number 11P338 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW625/635 

MEMORY 

PERIPHERALS 

LANGUAGE HW6000 FORTRAN/FORTY 

PURPOSE 

THIS IS AN INITIALIZATION CALL TO RE MADE ONCE PRIOR TO 
BEGINNING EACH DP PASS. ITS PURPOSE IS TO DEFINE FOR THE DP 
COMPUTE ROUTINE WHAT PASS IS TO BE PROCESSED AND IN RETURN 
IT WILL RETURN TO THE CALLING PROGRAM A LIST OF SPECIFICATIONS 
FOR THE PARAMETERS THAT IT WILL BE NEEDING AND FOR THE 
PARAMETERS IT WILL BE GENERATING. 

THE ENTRY TO DPCOMP IS MADE FOR EACH FRAME OF DATA. 

METHOD 

ASSUMPTIONS 

ONCE PER FLIGHT VALUES REQUIRED 

ETP - LOCATION 16 
ESGW “ LOCATION 17 
ESCG - LOCATION 18 
KPR - LOCATION 19 
HPC - LOCATION 20 
MRC - LOCATION 21 
R - LOCATION 2? 

RT - LOCATION 23 
GT - LOCATION 2A 
GTS - LOCATION 25 
RELHU - LOCATION 26 
FHBOOM - LOCATION 27 

STATISTICS REQUIRED 

ITATBOOM VIPBOOM HBOOM NOIOPCT 

N02QPCT NOINFPCT N02NFPCT NR 

MRQl TRQ LOADFACT 

MEASUREMENTS REQUIRED AS INPUT ON A FRAME BASIS 

ITATBOOM VIPBOOM HBOOM HEAD180 NOIQPCT 

N02QPCT NOINFPCT N02NFPCT LOADFACT MRQl 

TRQ NR TRIMPIT MRLIFTA MRLIFTB 

MRLIFTC MRLIFTD ISAFAPR ISOFAPR ISAFBPR 

XMSNSGT AILPOSR 
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PARAMETERS GENERATED FOR OUTPUT TO RDFRD 


VITBOOM 

VCASBOOM 

VEIBOOM 

FATBOOM 

VTBOOM 

TATBOOM 

HDBOOM 

OMEGAR 

omegatr 

MU 

macha 

NOISHP 

N02SHP 

HPT 

CPTE 

HPMR 

CPM 

HPTR 

CPTAIL 

HPS 

CPT 

YAWFTRM 

FX 

FY 

FZ 

MX 

MY 

MZ 

AILPOSP 


VARIABLE NAMING 

CONVENTION 




FIRST LETTER X 

= TEMPORARY 

VARIABLE GENERATED 

WITHIN 


DPCOMP BUT 

WHICH are 

NOT RETURNED TO 


THE CONTROL PROGRAM 

AND ONCE 

PER FLIGHT 


VALUES FED 

IN FROM THE HEADER 

TABLE 

FIRST LETTER Q 

= VARIABLES 

CONTAINING 

STATISTICS VALUES 


FED IN FROM THE CONTROL PROGRAM 
FIRST LETTER Z = VARIABLES CONTAINING SENSOR VALUES FED IN 
FROM THE CONTROL PROGRAM ON A FRAME BASIS 

INPUT/OUTPUT 

SEE CALLING ROUTINE FOR ARGUMENT DEFINITIONS 
CALLING SEQUENCE 

CALL ULINT(VIASN»VIASC » V I T * VCAS . DUM ) 

COMMON AREAS 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARO FORMATS » 
FILE DESCRIPTIONS OR FOR ANY OTHER SPECIFIC INFORMATION) 
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NP0UT=28 



RETURN 

























































XVT=VEI*SQRT 

(.0023769/XDENS) 

FAT=XITAT-0.0001317 

*XKPR*XVT*XVT 


FAT< (-17.71 


DPVAL(4)=FAT 
XPRSV1=XRELHU* 
(2.685+0.013232* 
(FAT+17.78)**2.45 
XDENSl=(XPRESS-0.378 
277*XPRSVl)/(3089.7 
*FAT+273.16) 


XPP0=XDENS1/. 0025769 

XP0P=1./XPP0 

XSQPP0=SQRT(XPP0) 

XSQP0P=SQRT(XP0P) 

VT=VCAS*XSQP0P 


iMa'fcmMiB'ii 


TAT=FAT+0.000131714 

*VT*VT 

DPVAL(6)=TAT 

HD= ( 1 . -XPP0** . 255 5/ . 00000 
6875DPVAL(7) = HO 


XNR=XULL 


XNR< =0 


0MEGAR=(3,14159*XR 
*XNR*2.03)/30. 
DPVAL(8)=0MEGAR 
0MEGTR= (3.141 59+XRT*XNR* 
2.03*XGT/30 DPVAL(9)=0MEGTR 


VT=XULL 


GO TO 
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YES 
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480 


IS0LA 

TRUE 

IF ZISOLAj^XUL 

IS0LB 

II 

" ZISOLBj^XUL 

IS0LC 

II 

" ZIS0LC?«XUL 

ILIFTA 

II 

" ZLIFTA?«XUL 

ILIFTB 

n 

" ZLIFTB?fXUL 

ILIFTC 

II 

" ZLIFTC^XUL 

ILIFTD 

II 

" ZLIFTD/XUL 

IQLINK 

II 

" ZQLINK^XUL 


FX=XULL 


AND ILIFTA 
J\m ILIFTB 


FX=ZIS0LB 

+0.2588* 

(ZLIFTD=ZLIFTA) 


FALSE 


DPVAL(23)=FX 

FY=XULL 


^^S0LA\ 
X^AND IS0LC\ 
AND ILIFTB AND 
\ ILIFTC 


FY=ZIS0LA-ZIS0LC 

+0.2588(ZLIFTB-ZLIFTC) 


FALSE 


DPVAL(24)=FY 

FZ=XULL 


^^LIFTA\^ 
^AND ILIFTB^ 
AND ILIFTC AND 
ILIFTD 


TRUE^ FZ=0.9659 (ZLIFTA+ 

’ ^ ZLIFTB+ZLIFTC+ZLIFTD) 


DPVAL(25)=FZ 


AMX=XULL 
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ULIN 


SU8«0UTINE ULINT(CN.C*X,Z»ZX) 


SUBROUTINE UL INT ( CN . C . X » Z ♦ ZX ) 

««»«««»«5U9P;0UTINE ULINT*********************************************** 


PROGRAM IDENTIFICATION 

PROGRAM NAME ULINT 

PROGRAM NUMBER 112338 

AUTHOR TERRY 0. SOMMERS 

COMPUTER HW625/635 

MEMORY 

PERIPHERALS 

LANGUAGE HW6000 FORTRAN/FORTY 

PURPOSE 

SUBROUTINE CALLED BY DPCOMP TO PERFORM UNIVARIATE LINEAR 
INTERPOLATION. 

METHOD 

INPUT/OUTPUT 

CN - NO. OF X VALUES IN C 

C - TABLE OF VALUES (CN X"S (MONOTONICALLY INCREASING) . 

FOLLOWED BY CN Y"S) 

X - INPUT X VALUES 
Z - RETURNED Z VALUE 
ZX - RETURNED SLOPE 

CALLING SEQUENCE 

CALL ULINT(CN»C»X,Z»ZX) 

COMMON AREAS 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS * 
FILE DESCRIPTIONS OR FOR ANY OTHER SPECIFIC INFORMATION) 
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*See Sub-program RDFRD for Comments and Flowcharts 


HIERARCHY CHART for DATASK PROGRAM 







DATK 


SUBROUTINE DATASK 


SUBROUTINE DATASK 


PROGRAM IDENTIFICATION 

PROGRAM NAME DATASK 

PROGRAM NUMBER 112320 

AUTHOR TERRY 0 SOMMERS 

COMPUTER HW-625/635 

MEMORY ALL FILES OPENdGK) 

PERIPHERALS CARO RE ADER , D I SC * PR I NTER 

LANGUAGE HW 6000 FORTRAN/FORTY 

PURPOSE 


TO GENERATE A DATA ANALYSIS REPORT TO BE USED BY 
ENGINEERS FOR DETERMINING FLIGHT CONDITIONS AND 
DATA VALIDITY. 

METHOD 


READ CARDS CONTAINING SENSOR NAMEtPRE-PROCESSiNG CODE 
AND SAMPLE RATE. READ IN SPECIFIC EVENT UNLESS ALL EVENTS 
ARE TO BE USED. GET CORRESPONDING DATA FROM STATISTICS FILE 09 
AND OUTPUT VALUES IN REPORT FORM. 

INPUT/OUTPUT 

THEAD - HEADER TABLE ARRAY 

TABREC - ARRAY FOR A 600 WORD RECORD 

HEAD - A 4 X 12 ARRAY CONTAINING INFORMATION TO BE PRINTED AS 

THE PAGE HEADER. 4 INPUT CARDS PUNCHED IN COLUMNS 1-72. 
NRUN - COUNTER FOR EVENT NUMBER 

CDIM - CARD IMAGE OF GROUPED PARAMETER NAMES. PRE-PROCESSING CODE 
AND SAMPLE RATE OR EVENT NUMBERS. 

MODE - CODE SET TO INFORM PROGRAM IF ALL NON-CAL EVENTS ARE 

TO BE PROCESSED OR RUNS NAMED ON INPUT CARDS ARE TO 

RF PRnrFRRFD 

MODE = 1 - PROCESS ALL NON-CAL EVENTS 
MODE = 2 - PROCESS ONLY THOSE SPECIFIED INPUTS 
JRUN - INPUT RUN NUMBERS 

IPAGE - CONTROLS INPUT OF PARAMETER NAMES. PPC'S AND SR"S FOR 
PROGRAM LOGIC. 

IPAGE = 0 - UNTIL FIRST OR NEXT "PAGE" CARD IS FOUND 

IPAGE = 1 - WHEN "PAGE" CARD IS FOUND 

IPAGE = 2 - IF PARAMETER CARDS TERMINATED BY 
A NEW "PAGE" CARD 

IPAGE = 3 - IF PARAMETER CARDS TERMINATED WHEN 
18 PARAMETER CARDS HAVE BEEN READ 
IF PARAMETER CARDS TERMINATED BY "END" CARD 
NAMES - PARAMETER MNEMONICS (NPAR IN LENGTH) MAX 18 
PPC - PRE-PROCESSING CODE (NPAR IN LENGTH) MAX 18 
SR - SAMPLE PATE (NPAR IN LENGTH) MAX 18 
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NPAR - NUMRER OE PARAMETERS COUNTED ON PROCESSING CARD 
INPUT OF PARAMETERS 

TOS - TABLE OF SUBSCRIPTS DETERMINED FOR EACH PARAMETER 
THRU SUBROUTINE RDFSUB 

T0S(4*I-3) - PASS NO. FOR PARAMETER "I" 
T0S(4«I-2) - OFFSET POSITION OF PARAMETER IN 

DATA FILE FRAME FOR PARAMETER "I" 
TOS (4*1-1) - COMPUTED "A" TERM FOR PARAMETER "I" 
TOS (4*1) - COMPUTED "B" TERM FOR PARAMETER "I" 
JINDEX - INTEGER TO USE IN SUBROUTINE ENCD6 FOR ARRANGING 
THE OUTPUT STATISTICS INTO AN AESTHETIC FORM FOR 
PRINTING 

CHBUFF - A 6 CHARACTER WORD OUTPUT FROM SUBROUTINE ENCD6 
THAT CONTAINS THE EDITED OUTPUT STATISTICS DATA 
VALUE - THE PARTICULAR STATISTIC DATA VALUE SENT TO ENC06 FOR 
EDITING INTO THE CHBUFF WORD 

FOR PPC'S = D OR S VALUE = AVERAGE 
EOR PPC = V VALUE = 95 PERCENT 
COLTIT - ARRAY OF INFORMATION ON EACH PARAMETER NAME FOR 
PRINTING THE COLUMN TITLES OF REPORT 
CTITL - COLUMN TITLES AS DEFINED IN SUBROUTINE GETUPC FOR 
EACH PARAMETER 

LTITL - LINE TITLES AS DEFINED IN SUBROUTINE GETUPC FOR 
EACH PARAMETER (NOT USED IN THIS ROUTINE) 

LINCNT - LINE COUNTER TO DETERMINE WHEN NEW PAGE HEADINGS 
ARE TO BE PRINTED 

OUTBUF - 400 WORD BUFFER CONTAINING ONF RECORD OF STATISTICS 
DATA READ FROM THE STATISTICS FILE 09 
LINRUF - ARRAY OF CHBUFF"S ARRANGED IN OUTPUT FORM 
EVENT - EVENT NAME FOR EVENT = IRUN 

CALLING SECJUENCE 

CALL RDFSUB(l»l»NPARtNAMES*PPC*SR»TOS) 

CALL GETUPC (NAMES ( IPAR) ,PPC ( IPAR) » JINDEX ( I PAR) * CT I TL f LT 1 TL ) 
CALL RDFRD(1»1»1 *IRUN,NPAPtNAMES*PPC»SR»ISMPL»LSMPL» 

OUTBUF. 180 » TOS, NFOUT» MSG t I ER) 

CALL ENCD6(VALUE.JINDEX(IPAR) .CHBUFF) 

COMMON AREAS 

/TABLl/THEAD 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS 
FILE DESCRIPTIONS OR POR ANY OTHER SPECIFIC INFORMATION. 
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GETUPC 

SUBROUTINE GETUPC (NAME* PPC* JINDEX* CTITL* LTITL) 

SUBROUTINE GETUPC 


PROGRAM IDENTIFICATION 

PROGRAM NAME - GETUPC 
PROGRAM NO. - 1.1.2320 
AUTHOR - DAVIO L. DAVIS 

COMPUTER - HW 625/635 

MEMORY 

peripherals - DISC SUBSYSTEM 
LANGUAGE - HW 6000 FORTRAN 

PURPOSE 

TO LOCATE ON THE UPC FILE AND RETURN TO 
A CALLING PROGRAM VARIOUS SPECIFICATIONS 
FOP A USER REOUESTED PARAMETER. IF THE 
REQUESTED PARAMETER CANNOT BE FOUND* ARTIFICIALLY 
BUILT SPECIFICATIONS WILL BE RETURNED. 

METHOD 

THE UPC FILE IS SEARCHED FOR A MATCH ON 
CONCATENATED NAME AND PRE-PROCESSING CODE. 

IF SUCCESSFUL THOSE RESULTS WILL BE 
RETURNED. IF NO MATCH IS FOUND THEN 
ARTIFICALLY GENFRATED RESULTS WILL BE 
RETURNED. 

INPUT/OUTPUT 

CALLING SEQUENCE 

CALL GETUPC (NAME*PPC*JINDEX*CTITL*LTITL) WHERE 

NAME - INPUT ARGUMENT CONTAINING CONCATENATED NAME 

PPC - INPUT ARGUMENT CONTAINING PRE-PRECESSING CODE 

JINDEX - OUTPUT ARGUMENT FOR INDEX INFO. 

CTITL - OUTPUT ARGUMENT FOR COLUMN TITLE INFO. 

LTITL - OUTPUT ARGUMENT FOR LINE TITLE INFO. 

FILE DESCRIPTIONS 

SEE DOCUMENTATION FOR ROUTINE #UPCGEN# FOR 
COMPLETE OESCRIPTIO OF THE #UPC# FILE. 
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ENCD SUBROUTINE ENCD6 ( VALUE » JINDEX ♦ CHBUFE ) 

»tt<nnnnnjSUBROUTINE ENC06*'********''^*"**’’*'*''***''****''************************* 


PROGRAM IDENTIFICATION 

PROGRAM NAME ENCD6 

PROGRAM NUMBER 112320 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW-625/635 

MEMORY 

PERIPHERALS 

LANGUAGE HW 6000 FORTRAN/FORTY 

PURPOSE 

ROUTINE ENCODES VALUE IN 6 CHARACTER FIELD WITH FORMAT 
DETERMINED BY READOUT PRECISION CODE NUMBER* JINDEX. 
SCIENTIFIC NOTATION USED IF lABS(JINDEX) 6E. 3. 

METHOD 


CHECK FOR NULL VALUE, CHECK FOR JINDEX BEING GE. 3. 
REFORMAT VALUE ACCORDING TO JINDEX VALUE. RETURN 
TO DATASK ROUTINE. 

INPUT/OUTPUT 

XULL - NULL VALUE EQUAL TO 0376777777777 

JINDEX - INTEGER TO USE IN SUBROUTINE ENCD6 FOR ARRANGING 
THE OUTPUT STATISTICS INTO AN AESTHETIC FORM FOR 
PRINTING 

CHBUFF - A 6 CHARACTER WORD OUTPUT FROM SUBROUTINE ENC06 
THAT CONTAINS THE EDITED OUTPUT STATISTICS DATA 
VALUE - THE PARTICULAR STATISTIC DATA VALUE SENT TO ENC06 FOR 
EDITING INTO THE CHBUFF WORD 

FOR PPC'S = D OR S VALUE = AVERAGE 
' FOR PPC = V VALUE = 95 PERCENT 

CALLING SEQUENCE 

CALL ENCD6 (VALUE* JINDEX, CHBUFF) 

COMMON AREAS 

NONE 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR 
SPECIFIC INFORMATION, 
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*See Sub-program RDFRD for Comments and Flowcharts 
**See Program DATASK for Comments and Flowcharts 


HIERARCHY CHART for CYCLE COUNTS PROGRAM 
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CCNT 


SUBROUTINE CYCCNT 


SUBROUTINE CYCCNT 

PROGRAM IDENTIFICATION 

PROGRAM NAME CYCCNT 

PROGRAM number 112336 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW625/635 

memory ALL FILES OPEN (20K) 

PERIPHERALS CARD READER . D I SC . PR I NTER 

LANGUAGE HW 6000 FORTRAN/FORTY 

PURPOSE 


TO PROCESS VIBRATORY COMPONENT OF PEAK STRESS CONVERTER 
FOR A SELECTED PARAMETER AND EVENT COMBINATION SO AS TO OBTAIN 
A COUNT OF THE NUMBER OF VIBRATORY CYCLES WHICH OCCUR IN EACH 
OF 8 CLASS INTERVALS. ALSO COMPUTED ARE THE ABSOLUTE MAXIMUM 
LEVEL AND ABSOLUTE MINIMUM LEVEL EXPERIENCED DURING THE 
EVENT FOR FM DATA ONLY. 

METHOD 

TWO METHODS OF EVENT SELECTION ARE IMPLEMENTED 

1. ALL NON-CALIBRATION EVENTS 

2. USER SPECIFIED EVENTS 

THREE methods OF PARAMETER SELECTION ARE IMPLEMENTED 

1. ALL available vibratory PARAMETERS 

2. ALL AVAILABLE VIBRATORY PARAMETERS ON A USER SPECIFIED PASS 

3. USER SPECIFIED VIBRATORY PARAMETERS 

IN ALL OF THE ABOVE THE CONCERN LEVEL GREATER THAN 0 
MUST BE PRESENT ON THE SENSOR FILE OR THE PARAMETER WILL 
BE BYPASSED. 

ASSUMPTIONS 

1. VIBRATORY CANNOT EXIST WITHOUT CORRESPONDING STEADY. 

2. VIBRATORY CANNOT BE A DERIVED PARAMETER. 

3. STATS CANNOT EXIST WITHOUT DATA 

4. ON ANY FRAME* IF VIBRATORY IS NULL* STEADY IS ALL NULL. 

INPUT/OUTPUT 

THEAD - HEADER TABLE ARRAY 

TABREC ARRAY FOR A 600 WORD RECORD 

TEVENT - EVENT ARRAY 

NAME - SENSOR NAME 

SR - SAMPLE RATE 

PPC - PRE-PROCESSING CODE 

IPASS - PASS NUMBER 

MAXPAS - MAXIMUM NUMBER OF PASSES 

CONLVL - CONCERN LEVEL 
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lENT - INITIAL DATA POINT 
LEN - LAST DATA POINT 
ISMPL - INITIAL SAMPLE 
LSMPL - LAST SAMPLE 

A8SMAX - ABSOLUTE MAXIMUM DATA POINT 
ABSMIN - ABSOLUTE MINIMUM DATA POINT 
FLTMAX - maximum DATA POINT 
FLTMIN - MINIMUM DATA POINT 

CALLING SEOUENCE 

CALL ROFSUB (0* 1 »2*NAME*PPC»SR*T0S) 

CALL GETUPC (NAME ( 1 ) »PPC ( 1 ) » JINDEX*CTITL»LTITL) 

CALL ROFRDd * 1 »1 ♦ IRUN * 2 ♦ N AME * PPC * SR ♦ I SMPL » LSMPL * OUTBUFt 20 » 
TOS»NFOUT»MSG» lER) 

CALL ENCD6(0UT8UF(N) » JINDEX * L INBUF (N) ) 

CALL ROFRO(l»0,l»IRUN,2*NAME*PPC.SR*ISMPLtLSMPL»OUTBUFt2«LEN» 
TOStNFOUT ,MSG»IER) 

CALL CYCNT ( lENT.NFPM.OUTBUF (1 ) » OUTBUF ( LEN+ 1 ) .CONLVLtCYCINT* 
ABSMAX? ABSMIN»NGD) 

CALL CYCPAG(FLTTIT*LTITL»SR(1) , JINDEX,CONLVL) 

COMMON AREAS 

/TABLI/THEAD 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS* 
FILE DESCRIPTIONS OR FOR ANY OTHER SPECIFIC INFORMATION. 


■»»<HHH»«*<HHHHH»*'IHHHHHm’<HHHHHHHH**'**"'*"'l’*'*t'**'*^***'*’"'*'*******''*''‘^*'**'***************''* 
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CONLVL=SENTAB 

(13*IPAR-4) 



ENC0DE(TNAME,1004) 
SENTAB(13*IPAR-12) 
SENTAB(13*IPAR-n) 
(2A6) 

DEC0DE(TNAME,1013) 

NAME(l) 

(A8) 

50 ^ 

NAME(2)=NAME(1) 

SR(2)=SR(1) 
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CYCT 


SUBROUTINE CYCNT 


SUBROUTINE CYCNT ( lENT , NPT , DAT AV * DAT AS * CONLVL ♦ CYCINT ♦ 

1 ABSMAX.ABSMINtNGD) 

***#****SURROUTINE CYCNT»««****<hhhh>***<hhhhhh><hh*****<hhhhh»***********» 


PROGRAM IDENTIFICATION 

PROGRAM NAME CYCNT 

PROGRAM NUMBER 112336 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW625/635 

MEMORY 

PERIPHERALS 

LANGUAGE HW 6000 FORTRAN/FORTY 

PURPOSE 

TO DETERMINE THE ABSOLUTE MAXIMUM AND MINIMUM DATA 
VALUES AND TO COMPUTE CONCERN LEVEL. 

INPUT/OUTPUT 

ARSMAX - ABSOLUTE MAXIMUM DATA VALUE 
ABSMIN - ABSOLUTE MINIMUM DATA VALUE 
DATAV - VIBRATORY DATA 
DATAS - STEADY DATA 
XULL - NULL VALUE 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARD FORMATS* 
FILE DESCRIPTIONS OR FOR ANY OTHER SPECIFIC INFORMATION. 
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CYPC 


SUBROUTINE CYCPAG 


SUBROUTINE CYCPAG (FLTT I T . LT I TL » SR» JINDEX » CONLVL) 
>«»«»««»<;UBROUTINE C Y CP A G^******** **>*#**<»***<>***■•»**■»*■•*■'» 

PROGRAM IDENTIFICATION 

PROGRAM NAME CYCPAG 

PROGRAM NUMBER 112336 

AUTHOR TERRY D. SOMMERS 

COMPUTER HW625/635 

MEMORY 

PERIPHERALS 

LANGUAGE HW 6000 FORTRAN/FORTY 

PURPOSE 


TO GENERATE REPORT OF VIBRATORY CYCLE COUNT SHOWING 
VIBRATORY AND STEADY DATA* PERCENT OF CONCERN LEVEL* 

ABSOLUTE LEVELS FOR EACH MANEUVER. 

IWPUT/OUTPUT 

FLTTIT - flight TITLE 
LTITL - LINE TITLE 

JINDEX - INTEGER TO USE IN SUBROUTINE ENCD6 FOR 
ARRANGING THE OUTPUT STATISTICS INTO AN 
AESTHETIC FORM FOR PRINTING 
CONLVL - CONCERN LEVEL 

CALLING SEQUENCE 

CALL ENCD6(C0NLVL* JINDEX. CLEV) 

SEE PROGRAM DOCUMENTATION ON FILE AT CAS FOR CARO FORMATS* 
FILE DESCRIPTIONS OR FOR ANY OTHER SPECIFIC INFORMATION. 

••*«««•«««*««»««»««««»»««««««««««««««««««»»« 
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* See Sub-program RDFRD for Comments and Flowcharts 
** See Program DATASK for Comments and Flowcharts 
*** Comments and Flowcharts not available for these modules 

HIERARCHY CHART For THPLOT PROGRAM 
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TIMHIS TIME-HISTORY - RSRA PLOT PROGRAM 
TIMHIS NASA wallops VERSION OF 8-15-77 

LANGUAGE FORTRAN V (FORTY) 

MACHINE - GE-625 

METHOD - PROGRAM USES CALCOMP SUBROUTINES ON FILE IN SYSTEM 

TO COMMUNICATE WITH PLOTTER HARDWARE. TIMHIS OUTPUTS 
A STANDARD LABELLED TAPE AT A DENSITY OF 556BPI. 

PURPOSE - TO PLOT RSRA DATA 


DESCRIPTION OF TASK INPUT CAPOS 


GENERAL TITLE CARD 

COLS. FORMAT DESCRIPTION 

2-73 12A6 THIS TITLE IS PLACED AT THE TOP OF ALL PLOT PAGES. 

PLOT ROW LABELS CARD 

COLS. FORMAT DESCRIPTION 

5 II RT. ADJUSTED PGF NO.(=l»R) 

10 II RT. ADJUSTED ROW NO. (=1*4) 

29-46 3A6 18 CHARACTER 80T LINE OF ROW LABEL (RITE-MOST) 

11-28 3A6 18 CHARACTER TOP LINE OF ROW LABEL ( LEFT-MOST ) 

29-46 3A6 18 CHARACTER BOT LINE OF ROW LABEL (RITE-MOST ) 

A CARD WITH A ZERO IN COL. 5 TERMINATES READING OF THESE CAROS 
MAXIMUM NUMBER OF ROW LABEL CARDS =9 PGF"S ^ 4 ROWS = 36 CARDS 


PARAMETER SPECIFICATION CARDS(2 CARDS/PARAMETER) 

COLS. FORMAT DESCRIPTION 

CARD NO.l 


1- 8 

A8 

LEFT ADJUSTED MNEMONIC OF PARAMETER 


9 

A1 

PRE-PROCESSING CODE LETTER 




10-11 

BLANK 








12-14 

A3 

SAMPLE RATE 

CODE 





15-18 

BLANK 








19-36 

3A6 

18 CHARACTER AXIS LABEL 

(TOP 

LINE) 


37-54 

3A6 

18 CHARACTER AXIS LABEL 

(BOT 

LINE) 


55-58 

A4 

4 CHAR. DIRECTION NOTE FOR TOP 

OF scale 

59-62 

A4 

4 CHAR. DIRECTION NOTE FOR BOT 

OF scale 

63-64 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

1 

65-66 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

2 

67-68 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

3 

69-70 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

4 

71-72 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

5 

73-74 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

6 

75-76 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

7 

77-78 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

8 

79-80 

12 

PARAMETERS 

PLOT 

POSITION 

ON 

PGF 

NO. 

9 
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PARAMETER PLOT POSITIONS ARE 

ROW COL POSITION MO TWO PARAMETERS MUST NOT 

1 1 1 OCCUPY THE SAME POSITION 

12 2 ON A PGF. 

1 3 3 

2 1 4 

2 2 5 

2 3 6 

3 1 7 

3 2 e 

3 3 9 

4 1 10 

4 2 11 

4 3 12 

CARD 2 

I-IO FIO RANGE OF PRIMARY SCALE IN E.U. (ROT TO TOP) 

11-20 FIO VALUE AT BOTTOM OF PRIM. SCALE 

21-30 FIO RANGE OF. SECONDARY SCALE IN E. U. (BOT TO TOP) 

31-40 FIO VALUE AT BOTTOM OF SECON. SCALE. 

41-42 12 SCALE PRECISION INDEX NO. 

43-44 12 ** OPTION FLAG TO REFERENCE ( B I AS ) ALL VALUES TO THE 

« A PLUS SIGN OR NONE INDICATE INTEGER SCALING. 

A NEG SIGN INDICATES SCALES LT 0 
A NEG N INDICATES N DECIMAL PLACE ACCURACY. 

** FIRST NON-NULL VALUE. FLAG IS ON IF IT=1 

UP TO 40 PARAMETERS MAY BE DEFINED FOR PLOTTING. 
PRIMARY SCALE WILL BE USED IF 80 PRCT. OF THE DATA CAN BE 
CONTAINED WITHIN IT. IF 20 PRCT OF THE DATA EXCEEDS THE PRIM 
SCALE.THEN THE SECOND. WILL BE USED. (20 PCNT OF DATA POINTS) 
A CARO WITH BLANKS IN COLS. 1-8 WILL TERMINATE READING OF THESE 
CARDS. 


HEADING LABEL CARDS 

COLS. format DESCRIPTION 

5 II HEADING NO 

6-13 A8 LINE 1 CHARACTER STRING 

14-21 A8 LINE 2 CHARACTER STRING 

22-29 A8 LINE 3 CHARACTER STRING 

FROM ONE TO EIGHT HEADINGS MAY BE IDENTIFIED 
ANY MAY BE SKIPPED 

A ZERO IN COL. 5 END READING HEADING LABEL CARDS. 


BURST SELECTION CARDS (2 CARDS PER BURST) 

COLS. FORMAT DESCRIPTION 

CARO 1 

1- 5 15 BURST NO TO BE PROCESSED 

6-10 15 PGF NO TO BE USED FOR THIS BURST 

11-20 FIO START TIME OF PLOTS IN SECONDS INTO THE EVENT 

21-30 FIO STOP TIME OF PLOTS IN SECONDS INTO THE EVENT 

31-78 8A6 MANEUVER TITLE (PLACED AT TOP OF PLOT) 

79-80 12 OPTION FLAG TO PRINT DATA TO BE PL0TTED(0N IF =1) 
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CARD 2 


1-10 

AlO 

LINE 

4 

CHARACTER 

STRING 

HEADING 

1 

11-20 

AlO 

LINE 

4 

CHARACTER 

STRING 

HEADING 

2 

21-30 

AlO 

LINE 

4 

CHARACTER 

STRING 

HEADING 

3 

31-40 

AlO 

LINE 

4 

CHARACTER 

STRING 

HEADING 

4 

41-50 

AlO 

LINE 

4 

CHARACTER 

STRING 

HEADING 

5 

51-60 

AlO 

LINE 

4 

CHARACTER 

STRING 

HEADING 

6 

61-70 

AlO 

LINE 

4 

CHARACTER 

STRING 

HEADING 

7 

71-80 

AlO 

LINE 

4 

character 

STRING 

HEADING 

8 


A CARD WITH A ZERO IN COL. 5 ENDS READING ALL CARDS. 


INPUT VARIABLES 
CARD INPUTS 

ALLPLT *6 (12) 72 CHARACTER TITLE FOR DISPLAY AT TOP OF ALL PLOTS 

BOT (40.2) 2 POSSIBLE SCALE BOTTOM VALUES FOR ALL PARAMS DEFINED 

CDBUFF *6 (14) LOCAL ENCODE/OECODE BUFFER FOR ARRANGING TEXTS 

IBNAME *8 (40) MNEMONICS OF ALL PARAMETERS DEFINED 

IRPP *1 (40) PRE PROCESS CODES OF ALL PARAMETERS DEFINED 

IRSR *6 (40) SAMPLE RATES OF ALL PARAMETERS DEFINED 

JDELTA (40) FLAG TO PLOT VALUE MINUS FIRST SAMPLE 

JINDEX (40) PRECISION CODE FOR EACH PARAMETER DEFINED 

KGRP (40.9) POSITION INDEX NO /PGF/PARAM 

MASLAB *6 (6.9.4)MAIN AND SUB TITLES FOR EACH ROW 

REGTIT *6 (8) 48 CHARACTER REGIME TITLE 

SCNOTE *6 (40.2) (2) 4 CHAR DIRECTION PLOT SCALE NOTES 

SLP (40.2) 2 POSSIBLE SCALE RANGES 

YTITL »6 (6.40) 36 CHARACTER PARAMETER TITLE (MAIN ♦ SUB) 

IGRP PLOT GROUP FORMAT NO BEING EXECUTED 
IRUN RUN NUMBER BEING PLOTTED 

TIMEl TIME INTO RUN AT WHICH DATA PRESENTATION IS TO BEGIN 

TIMEL TIME INTO RUN AT WHICH DATA PRESENTATION IS TO END 


VARIABLES CALCULATED WITHIN PROGRAM 

ACNAME *8 (2) MNEMONIC OF PARAMETER BEING PROCESSED ♦ TIME 

ACPP *1 (2) PRE PROCESS CODE OF PARAMETER BEING PROCESSED * TIME 

ACSR *6 (2) SAMPLE RATE OF PARAMETER BEING PROCESSED ♦ TIME 

DX (6) LOCAL PEN INCREMENTS IN X DIRECTION 

DY (6) LOCAL PEN INCREMENTS IN Y DIRECTION 

LEGEND *6 (3.2) TEXT FOR "SOLID LINE". "SHORT DASH"»"L0N6 DASH" 

OUTBUF (232) ACCESS BUFFER (116 FRAMES OF DATA/PARAM ♦ TIME) 

PCTBD (2) 0/0 OF SCALE UTILIZATION FOR EACH POSSIBLE PLOT SCALE 

PCTGD (2) 0/0 OF SCALE UTILIZATION FOR EACH POSSIBLE PLOT SCALE 

TRASE (3) TIME SCALE MULTIPLIERS (1.5. 3.0. 6.0) 

TOS (8) TABLE OF SUBSCRIPT VECTOR USED BY RDFSUB ♦ ROFRD 

DATFST FIRST NON-NULL VALUE OF THE PARAMETER BEING PLOTTED 

DATMIN MINIMUM DATA VALUE OF THE PARAMETER BEING PLOTTED 

DATMAX MAXIMUM DATA VALUE OF THE PARAMETER BEING PLOTTED 

IBS BEGINNING FRAME NO. IN SEGMENTED ACCESS OF RUN 

ICOL COLUMN INDEX NO. 

lES ENDING FRAME NO. IN SEGMENTED ACCESS OF RUN 

IFIACT FRAME NO. INTO BURST WHERE PLOT WILL BEGIN FOR THIS PARAMETER 

IFLACT FRAME NO. INTO BURST WHERE PLOT WILL END FOR THIS PARAMETER 

IPTRl SUBSCRIPT OF OUTBUF FOR GIVEN FRAME OF PARAMETER BEING PLOTTED 

IPTR SUBCCRIPT OF OUTBUF FOR GIVEN FRAME OF TIME 

IROW ROW INDEX NO (1-4) 
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ITPCD 

LCHAN 

LFN 

LL 

NCHAND 

NFRM 

NGD 

PMN 

PMX 

POP 

SBOTX 

SEGDN 

SLPACT 

STOPX 

SV 

TMN 

TMX 

TOR 

TSLP 

TSPAN 

TSPAM 

XOFFSl 

YOFFSl 


PRECISION CODE INDEX FOR TIME SCALE 
PLOT-POSITION INDEX NO, (1-12) 

THE NUMBER OF FRAMES THAT CAN BE ACCESSED AT A TIME 

PLOT SCALE FLAG =1*PRIMARY* =2»SEC0NDARY 

NO OF PARAMETERS DEFINED IN ENTRY TO PRIMER 

NO OF FRAMES ACTUALLY ACCESSED DURING GIVEN CALL TO RDFRD 

NO OF NON-NULL FRAMES AVAILABLE FOR THIS PARAMETER 

MINIMUM parameter VALUE PERMITTED ON PLOT SURFACE 

MAXIMUM parameter VALUE PERMITTED ON PLOT SURFACE 

PARAMETER VALUE AT BOTTOM EDGE OF GRID (Y=0.0 CM) 

scale value AT BOTTOM END 

LENGHT IN CM OF DASH LINE TO BE DRAWN 

PLOT SCALE CHOSEN FOR PARAMETER IN ENG. UNITS/CM 

SCALE VALUE AT TOP END 

LOCAL VARIABLE USED IN GENERATION OF TIME SCALE 
MINIMUM TIME VALUE PERMITTED ON PLOT SURFACE 
MAXIMUM TIME VALUE PERMITTED ON PLOT SURFACE 
TIME VALUE AT PLOT ORIGIN (X=0.0 CM) 

CHOSEN PLOT RATE FOR TIME SCALE (SECS/CM) 

REQUESTED TIME SPAN = (TIMEL-TIMEl ) 

CHOSEN LENGHT OF TIME SCALE IN SECS 

X POSITION IN CM FROM ORIGIN FOR A GIVEN COLUMN Y AXIS 
Y POSITION 


OUTPUT 

PARAMETERS OUTPUT BY PROGRAM 

0UTBUF(?B2), may BE PRINTED ON LISTING 
X.Y.XOFFl fYOFFl PEN POSITIONS 


SUBROUTINES USED BY TIMHIS 

PLOTS - A CALCOMP ROUTINE TO INITIALIZE CALCOMP PACKAGE 
CALLING SEQUENCE 
CALL PLOTS (ARGl ,ARG2»ARG3) 

ARGl-IBUF-NAME OF OUTPUT BUFFER 
ARG2-1000-SIZE OF IBUF 
ARG3-50-OUTPUT TAPE FILE (STD FORMAT) 

FACTOR - A CALCOMP ROUTINE TO SCALE PLOT POSITIONS 
CALLING SEQUENCE 
CALL FACTOR (ARG) 

ARG-0. 3937-CONVERTS PEN DISPLACEMENTS FROM METRIC TO 
INCHES FOR METRIC PAPER. INPUTS ARE METRIC 

SYM80L-A CALCOMP ROUTINE TO PLOT ALPHANUMERIC INFORMATION 
CALLING SEQUENCE 

CALL SYMBOL ( AHGl , ARG2 » ARG3 , ARG4 , ARG5 , ARG6 > 

ARGl- - X START POSITION 

ARG2- - Y START POSITION 

ARG3- - SIZE OF CHARACTERS 

ARG4- - ALPHANUMFRICS TO PLOT 

ARG5- - HORIZONTAL OR VERTICAL ALIGNMENT 

0.0 for HORIZONTAL* 90,0 FOR VERTICAL 
ARG6 NUMBER OF CHARACTERS TO BE PLOTTED 
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PLOT - A CALCOMP ROUTINE TO PLOT LINE DATA 
CALLING SEQUENCE 
CALL PLOT(ARGl»ARG2»ARR3) 

ARGl- “X POSITION TO MOVE PEN TO 
ARG2- -Y POSITION TO MOVE PEN TO 
ARG3- -PEN POSITION C0DEt2=PEN OOWM»3=PEN UP, 

PLTFAC - ROUTINE TO CONVERT E, U. TO PEN POSITIONS 
CALLING SEQUENCE 

CALL PLTFAC<TSLP»SLPACT.TOR»0,0»TMX»PMN»PMX) 

SEE DESCRIPTION OF VARIABLES ABOVE 

PVEC - ROUTINE TO PLOT SOLID LINE 
CALLING SEQUENCE 

CALL PVEC(OUTBUF(NFRM*l) ,OUTBUF(l) ,NFRM) 

SEE DESCRIPTION OF VARIABLES ABOVE 

DASHLU - ROUTINE TO PLOT DASHED LINES 
CALLING SEQUENCE 

CALL DASHLU(OUTBUF(NFRM^l) tOUTBUFa) ♦NFRM»SE6DN»0.075) 
SEE DESCRIPTION OF VARIABLES ABOVE 

RANSIZ»RDFSUB»RDFRDfENCD6 ARE DOCUMENTED ELSEWHERE IN THE 
RSRA PACKAGE, 
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RETURN 
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LOOP ON ROWS 
FROM TOP TO BOTTOM 


PLOT MAIN AND SUB 
ROW TITLES 


LOOP ON COLUMNS 
FROM LEFT TO RIGHT 


ETER FOR THIS 
^^^OLUMN & 


GO TO END OF 
COLUMNS LOOP 


NO 

MNEMONIC 

YES 

SAMPLE RATE 


GO TO END OF 
COLUMNS LOOP 


LOAD RDFSUB ARGUMENTS CALL 
RDFSUB (0,1,2, ACNAME,ACPPC, 
ACSR,TOS) 


— >^SnnERE DATA TO PLOT] 

„ 7^-^-^EOr this para- I NO 

YES ^"^^^--^ETER? 


DETERMINE START, MIN, MAX 
VALUES, ACTUAL START&STOP 
SAMPLE NUMBERS 


CALL RDFRD TO GET DATA 


ERROR 


TERMINATE THIS 
PLOT 






























* See Sub-Program RDFRD for Comments and Flowcharts 
** See Program DATASK for Comments and Flowcharts 

HIERARCHY CHART For HARMONIC ANALYSIS PROGRAM 
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HARMONICS 


PROGRAM HARMONIC ANALYSIS ihuhuhhuhuhhhumhmhi 
02/22/78 

••PROGRAM IDENTIFICATION 

PROGRAM NAME = RSRA HARMONIC ANALISIS 
PROGRAM NO, = 

RESEARCHER = NORM MICHAUD (NASA WALLOPS) 

PROGRAMMER = GUS OOVI (COMPUTER SCIENCES CORP.) 

ANALYST = ken LEWIS (SIKORSKY AIRCRAFT) 

COMPUTER = HW 625/635 
MEMORY = 14K 

PERIPHERALS = DISC SUBSYSTEM 
TAPE SUBSYSTEM 

LANGUAGE = HW 6000 FORTRAN (100 PERCFNT) 

NO, CARDS =■ 476 

•••PURPOSE 

RSRA HARMONIC ANALYSIS READS DATA FROM F I LES ( 05 ) ; ( 07 ) ; ( 09 ) ; ( 35 ) , 
THE DATA IS PROCESSED AND SCANNED FOR PROPER FORMAT, THE RAW DATA 
FILE IS READ, FROM THIS DATA THE FOURIER COEFFICIENTS ARE 
GENERATED AS WELL AS THE RESULTEMT AMPLITUDES. PHASE ANGLES. AND 
STANDARD SAMPLE DEVIATION, FOURIER COEFFICIENTS ARE LIMITED TO 
144, 

*••1/0 CONFIGURATION 

DEVICE TYPE DESCRIPTION 

CRD CONTAINS TITLES AND RUN DATA, 

DSK random file CONTAINING DATA TABLES, 

DSK STATISTICS FILE USED BY SUBROUTINE ROFRO 

DSK UNIVERSAL PARAMETER CATALOG, 


••SUBPROGRAMS REQUIRD 

RDFSUB 

GETUPC 

RDFRD 

FOURIE 

AVERGE 

BARF 

«*»««««»»««»««»»««»««»«««« PROGRAM HARMONIC ANALYSIS *«**•*••**•***»»*« 


UNIT NO, 
05 
07 
09 
35 
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CEXP(J,NREVS) 

=C(0) 


CALL 

AVERGE 


NREVS 

AVALSV 

passing] CEXP 

S CAVG 

AAVG 

CSIGMA 

Iphiavg 























AVERAGE 


***»#<» SUBROUTINE AVERSE 

02/22/78 

«*PROGRAM IDENTIFICATION 

PROGRAM NAME = AVERSE 

PROGRAM NO. = 

RESEARCHER = NORM MICHAUD (NASA WALLOPS') 

PROGRAMMER = GUS DOVI (COMPUTER SCIENCES CORP.) 

ANALYST = KEN LEWIS (SIKORSKY AIRCRAFT) 

COMPUTER = HW 625/635 

memory = 

PERIPHERALS = NONE 

LANGUAGE = HW 6000 FORTRAN (100 PERCENT) 

NO. CARDS = 37 

**PUPPOSE 

TO GENERATE THE AVERAGE FOURIER COEFICIENTS* RESULTANTSt PHASF 
ANGLES AND STANDARD DEVIATIONS OVER A RANGE OF (N-D/2 HARMONICS. 
WHERE (N) IS THE NUMBER OF HARMONICS. 


*«INPUT 

NREVS = INTEGER VALUE (0 .LT. NRFVS .LE. 20) 

AVALSV = (A) COEFFICIENTS OUTPUT FROM SUBPROGRAM FOURIE. 

THE (A) COEFFICIENTS ARE ACCUMULATED INTO THE 
AVALSV ARRAY. AVALSV IS DIMENSIONED TO (21). 

CEXP = ARRAY DIMENSIONED (11.20). CONTAINS ACCUMULATED 

resultants of THE A(2*JJ) AND A(2*JJ*1) COEFFICIENTS 
OUTPUT BY SUBPROGRAM FOURIE. 

**OUTPUT 

CAVG = ARRAY DIMENSIONED (11). CONTAINS THE AVERAGE 

RESULTANT OF THE AVERAGE (A) AND (C) COEFFICIENTS. 
WHERE 

CAVG(JJ+1) = SQRT(AAVG(2»JJ)«*2+AAVG(2*JJ+1)**2) 

AAVG = ARRAY DIMENSIONED (21). CONTAINS THE AVERAGE 

(A) COEFFICIENTS INPUT VIA ARRAY AVALSV. 

CSIGMA = ARRAY DIMENSIONED (11). CONTAINS AVERAGE STANDARD 

deviations. 

PHIAVG = ARRAY DIMENSIONED (11). CONTAINS AVERAGE PHASE ANGLES 

DEFINED BY THE A(2*JJ) AND A(2*JJ*1) COEFFICIENTS. 
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••RESTRICTIONS 


NONE 

••SUBPROGRAMS REQUIRED 
NONE 


subroutine average ************************* 
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CSIGMA(JJJ) 

=SQRT 

(CSUMSQ/ANREVS) 


RETURN 


AAVG 

AVALSV(J) 

/ANREVS 


/ DO 20 
V JJ=1,10 


ARGUMENTS PASSED: 

NREVS 

AVALSV 

CEXP 

CAVG 

AAVG 

CSIGMA 

PHIAVG 


CAVG(JJ+1)= 
SQRT(ARG3) 
PHIAVG(JJ+1) 
= AT AN 2 


/ DO 31 




CSUMSQ= 

0.0 


r 

/ 

\ 


DO 30 
K=l, NREVS 


CSUMSQ= 

CSUMSQ+ 

ARGl 





FOURIER 


SUBROUTINE FOUPTE «»•»«•■»««•«•*» •tnnxnt'innnnnnt ■»«•»» 


*«PROGRAM IDENTIFICATION 


PROGRAM NAME 
PROGRAM NO. 
RESEARCHER 

programmer 

analyst 


FOURIE 

NORM MICHAUD (NASA WALLOPS) 

GUS DOVI (COMPUTER SCIENCES CORP.) 
KEN LEWIS (SIKORSKY AIRCRAFT) 


COMPUTER 
MEMORY 
PERIPHERALS 
LANGUAGE 
NO. CAROS 


HW 6P5/635 
NONE 

HW GOOD EORTRAN (100 PERCENT) 
76 


»»PURPOSE 

TO determine the EOURIER COEFFICIENTS FOR A DATA VECTOR OF 144 
VALUES. THE PHASE ANGLE IS ALSO COMPUTED. 


**INPUT 

N = number OF VALUES IN INPUT VECTOR 

Y = ARRAY (INPUT VECTOR) DIMENSIONED (144). 

NHAPM = NHARM IS SET EQUAL TEN (10) IN THE CALLING PROGRAM. 

MHARM IS AN INTEGER SPECIFYING THE NUMBER OF 
(C) VALUES DFSIREO. IF NHARM = 10 (C) SHOULD BE 
DIMENSIONED (11) AND ARRAY (A) SHOULD BE DIMENSIONED 
(21) IN THE CALLING PROGRAM. NOTE ((1) =(A(1)/N) AND 
C(I) = SORT ( A ( J) **24-a ( J+1 ) *«2) . 


**OUTPUT 

A = ARRAY OF FOURIER COEFFICIENTS. THE SINE TERMS ARE 

IN THE ODD SUBSCRIPTED ELEMENTS. THE COSINE TERMS 
ARE IN THE EVEN SUBSCRIPTED ELEMENTS 

C = ARRAY OF RESULTANT VECTORS. 

C(N) = S0RT(A(N)*»2 ♦ A(N+1)*«2) 

PHI = ARRAY OF PHASE ANGLES FOR USE WITH (C) VECTORS. 

lER = 0 IMPLIES NO ERRORS. 

1 IMPLIES (Y) VECTOR CONTAINS NULL VALUES. 
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••RESTRICTIONS 


Y INPUT VECTOR LIMITED TO 144 ELEMENTS. 
••SUBPROGRAMS REQUIRED 
NONE 


SUBROUTINE FOURIE 
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ARGUMENTS PASSED: 

N 

Y 

NHARM 

A 

C 

PHI 

lER 
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BAPF 


SUBPOUTINE 

X 

•••* RESULTS OF 
•••* FORMATS. 


BARF (AAVG.CSIGMA.CAVG.IRUN.ICYCl .ICYCL. lt ITL. NAME 
.PHIAVG.FLTIT.REGTIT.NREVS.KPG) 

THE harmonic analysis ARE GENERATED UNDER SPECIFIED 










UPCGEN 


BUILDU 


PURGEU 


‘Comments and Flowcharts not available for this module 


HIERARCHY CHART For UPCGEN PROGRAM 


UPCGEN 

iHHUMHHHUHUHHMHUHHHHUHUMHt SUBROUTINE UPCGEN ««»***«******«»***»«****** 


PROGRAM IDENTIFICATION 


PROGRAM NAME 
PROGRAM NO. 
AUTHOR 


UPCGEN 
1.1.2333 
DAVID L. DAVIS 


COMPUTER 

MEMORY 

peripherals 

LANGUAGE 


HW 625/635 


HW 6000 FORTRAN 


PURPOSE 

CREAT AND MAINTAIN THE 
UNIVERSAL PARAMETER CATALOG 
FILE. 


METHOD 

A SET OF DATA CARDS ARE READ 
PRECEDED BY A DIRECTIVE CARD. 

THIS DIRECTIVE CARD INDICATES THE 
ACTION TO BE PERFORMED. THE ACTION 
MAY BE TO INITIALIZE THE FILE* INSERT 
PARAMETERS* OR DELETE PARAMETERS. 

««»«««« UNIVERSAL PARAMETER CATALOG (UPC) FILE STRUCTURE 

PERMANANT*RAND0M ACCESS DISC FILE 


2 TO 139 RECORDS 
280 WORDS PER RECORD 

2760 parameter ENTRIES WHEN FILE = 139 RECORDS 
«««»««» UPC RECORD DESCRIPTION »*«»***» 

RECORD NO. 1 - TABLE OF CONTENTS 
WO 1 - «UPC W 

WD 2 - INTEGER NO. OF PARAMETERS IN CATALOG 

WO 3*4- CONCATENATED NAME AND PPC OF 

. FIRST ENTRY IN FIRST CATALOG RECORD. 


WD 279*280 - CONCATENATED NAME AND PPC OF 
LAST ENTRY IN FILE. 

THE CONCATENATED NAME AND PPC OF LAST ENTRY IN FILE 
WILL IMMEDIATLY FOLLOW THE ITEM SPECIFYING THE LAST 
REQUIRED CATALOG RECORD. ITS POSITION IS THEREFORE A 
FUNCTION OF THE NO. OF PARAMETERS IN THE CATALOG AT 
A RATE OF 20 PARAMETERS PER CATALOG RECORD. 
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»»**♦ records no. 2 - 139 ***** 

CATALOG RECORDS - 280 WORDS EACH (20 PARM) X (14 WOS/PARM) 

WO 1.2 NAME AND PPC OF PARM NO. 1 
WD 3 PARAMETER CATEGORY 

WO 4 INTEGER PRECISION CODE INDEX 
WD 5.10 6 WORD COLUMN TITLE 

WD 11.14 4 WORD LINE TITLE 

WD 15.16 NAME AND PPC OF PARM NO. 2 

ETC 

ALL PARAMETERS ARE ENTERED ALPHABETICALLY ACCORDING TO 
CONCATENATED NAME AND PPC. 
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INTERCHANGE 

RECORDS 
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I 


11A 
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M=20 
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*Program Modules SFRAME, HFRAME, GFRAME documentation in NASA, WFC Program Library 


HIERARCHY CHART FOR TPDMP PROGRAM 







TPOMP 

«»«»»»« 

««««««» 

«««»«"»« 

««««"»«« 


***•»•»*«■ 


»«'»«««« 


««»«««« 


9TRK TAPE DUMP PROGRAM 
MASA WALLOPS VERSION OF 08/15/77 

LANGUAGES- 

FORTPANY (MAIN ROUTINE) 

GMAP (SUBROUTINES) 

MACHINE- 
HW625 OR HW635 

PURPOSE- 

TO DUMP POHTIONStSPECIFIED BY THE USERtOF AN EMR 6130 TELEVENT 
II DATA TAPE IN A USABLE FORMAT. 

METHOD- 

FROM THE CARD READER THE FOLLOWING INFORMATION IS READ<START 
TIME*ST0P TIMEfNUMBER OF REC0RDS»TAPE FILE tSTARTING WORD AND 
STOPPING WORD. THE PORTIONS OF THE 6130 TAPE DEFINED BY THIS 
CARD ARE THEN OUTPUT SEQUENTIALLY TO THE LINE PRINTER. ANY 
NUMBER OF THESE DATA CAROS MAY BE PRESENT SINCE AN EOF ON 
FILE 05 TERMINATES PROCESSING. 

INPUT -ON FILE 05(CARD READER) 

IDAYl .STARTING DAY 
IHRl .STARTING HOUR 
IMINl .STARTING MINUTE 
ISECl .STARTING SECOND 

JSECl .STARTING TENTH OF A MILLISECOND 

I0AY2 .STOPPING DAY 

IHR2 .STOPPING HOUR 

IMIN2 .STOPPING MINUTE 

ISEC2 .STOPPING SECOND 

JSEC? .STOPPING TENTH OF A MILLISECOND 

IWDSRT. STARTING WORD 

IWDSTP. STOPPING WORD 

-ON FILE 01 (6130 TAPE) 

ITIME .FIVE WORD FRAME TIME 
IFR .TWO HUNDRED WORD FRAME DATA 
NWS .MAXIMUM NUMBER OF WORDS PER FRAME 
OUTPUT-ON FILE 06(LIN£ PRINTER) 

HEAOR .EIGHTY CHARACTER TAPE HEADER 

IFC .TAPE FILE TO BE PROCESSED 

IWDSRT.STARTIN6 WORD 

IWDSTP. STOPPING WORD 

ITIME .FIVE WORD FRAME TIME 

IFR .TWO HUNDRED WORD FRAME DATA 

RESTRICTIONS- 

TO OBTAIN ANY DATA AT LEAST ONE CARD MUST BE PRESENT. THIS CARD 
MAY BE BLANK IF STANDARD OPTIONS ARE WANTED. 
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*«««••* SUBROUTINES REQUIHEO- 
SFRAME 
HFRAME 
GFRAME 
STATS 
EBCRCO 
TRANS 
G8F36 
616F36 

REMARK* 

THE STANDARD OPTIONS OESCRIRED A80VF ARF AS FOLLOWS< THE FIRST 
TWENTY RECORDS FROM FILE ONE INCLUDING ALL WORDS IN EACH RECORD 
ARE PRINTED. 
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TPRINT 

««««««« 

««»«««« 

«»««««« 

««««««« 


»«««««« 


«««««»« 


TABLE PRINTOUT 

NASA WALLOPS VERSION OF 08/15/77 

LANGUAGE- 

FORTRANY 

MACHINF- 
HW625 OR HW635 

PURPOSE- 

TO MAKE AVAILI0LE IN A USABLE FORMAT THE INFORMATION CURRENTLY 
PLACED ON AN RSRA TABLE FILE 

METHOD- 

MAKING USE OF THE SUBROUTINE RANSIZ THE DISC FILE CONTAINING 
THE TABLE WE ARE INTERESTED IN IS READ RECORD BY RECORD. AS 
EACH RECORD IS READ THE WORDS CONTAINING INFORMATION ARE 
PRINTED WITH APPROPRIATE LABELS. NO CARD INPUT IS USED. 

INPUT -ON FILE 07(THE DISC FILE CONTAINING TABLE) 

THEAD -TWENTY SEVEN WORD HEADER RECORD 

TPASS -TWENTY RECORD»ONE HUNDRED TWENTY WORD PASS TABLE 
TSNSNE-TWENTY RECORD*FIVE HUNDRED TWENTY WORD SENSOR TABLE 
TEVNT -SIX HUNDRED WORD EVENT RECORD 
TCALR -ONE HUNDRED TWENTY WORD CALIBRATION RECORD 

OUTPUT-ON FILE 06(THE LINE PRINTER) 

THEAD -TWENTY SEVEN WORD HEADER RECORD 

TPASS -TWENTY RECORDtOME HUNDRED TWENTY WORD PASS TABLE 
TSNSNE-TWENTY RECORD*FIVE HUNDRED TWENTY WORD SENSOR TABLE 
TEVNT -SIX hundred WORD EVENT RECORD 
TCALR -ONE HUNDRED TWENTY WORD CALIBRATION RECORD 

RESTRICTIONS- 

NONE 

SUBROUTINES- r 
NONE •' 
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